Chapter 3. Operating NetView FTP V2.2.1 MVS - IBM

DVGXCR1 JOB (accn,n),'programmer-id',
// MSGCLASS=X,MSGLEVEL=(1,1),CLASS=A,
// NOTIFY=userid,USER=userid
//���������������������������������������������������������������������
//� NETVIEW FILE TRANSFER PROGRAM VERSION 2.2.1 �
//� Generated by macro DVGMXJG2 �
//� MEMBER : DVGMXCR1 �
//� Parameter: �
//� INDEX DVG.NFTP23� �
//� WRKDISK SYSDA �
//� FUNCTION : �
//� DELETE AND DEFINE AND INIT THE CHECKPOINT DATA SET �
//���������������������������������������������������������������������
//�---------------------------------------------------
//� GENERATE THE INITIAL DATA
//�---------------------------------------------------
//GENERATE EXEC PGM=IEBDG
//SYSPRINT DD SYSOUT=�
//SEQOUT DD DSN=&TEMP,UNIT=SYSDA,
// DISP=(NEW,PASS),SPACE=(TRK,(1)),
// DCB=(RECFM=FB,LRECL=992,BLKSIZE=1984)
//SYSIN DD �
DSD OUTPUT=(SEQOUT)
FD NAME=CRKEY,STARTLOC=1,LENGTH=254,FILL=X'��',FORMAT=BI,INDEX= 1
FD NAME=CRDATA,STARTLOC=255,LENGTH=16,PICTURE=16, �
'INIT. C/R RECORD'
FD NAME=CRBLANK,STARTLOC=271,LENGTH=722
CREATE QUANTITY=1, �
NAME=(CRKEY,CRDATA,CRBLANK)
END
/�
//�---------------------------------------------------
//� DELETE, DEFINE AND INITIALIZE CHECKPOINT DATA SET
//�---------------------------------------------------
//DEFREP EXEC PGM=IDCAMS,REGION=2M
//SYSPRINT DD SYSOUT=�
//VSAMCHCK DD DUMMY,
// DCB=(RECFM=VBA,LRECL=125,BLKSIZE=629)
//CRRDATA DD DSN=&TEMP,DISP=(OLD,DELETE)
//SYSIN DD DSN=DVG.NFTP23�.INSTLIB(DVGMXCRD),DISP=SHR
Figure 42. Sample Job to Set Up the Checkpoint Data Set (DVGMXCR1)
74 NetView FTP V2 MVS Installation, Operation, and Administration