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

DVGXRQ1 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 : DVGMXRQ1 �
//� Parameter: �
//� VSQUAL DVG.NFTP23� �
//� WRKDISK SYSDA �
//� ----------- ONLY IF SMS=NO: --------------- �
//� VSVOL US9��8 �
//� FUNCTION : DEFINE AND INIT THE REQUEST QUEUE �
//���������������������������������������������������������������������
//�---------------------------------------------------
//� GENERATE THE INITIAL DATA
//�---------------------------------------------------
//GENERATE EXEC PGM=IEBDG
//SYSPRINT DD SYSOUT=�
//SEQOUT DD DSN=&TEMP,UNIT=SYSDA,
// DISP=(NEW,PASS),SPACE=(TRK,(3)),
// DCB=(RECFM=FB,LRECL=114�,BLKSIZE=456�)
//SYSIN DD �
DSD OUTPUT=(SEQOUT)
FD NAME=RCEURI,STARTLOC=1,LENGTH=4,FILL=X'��'
FD NAME=RCEUR1,STARTLOC=1,LENGTH=4,FILL=X'��',FORMAT=BI,INDEX=1
FD NAME=RCEDATA1,STARTLOC=5,LENGTH=3
FD NAME=RCESTAT,STARTLOC=8,LENGTH=1,FILL=X'�8'
FD NAME=L1,STARTLOC=9,LENGTH=1,FILL='V'
FD NAME=L2,STARTLOC=1�,LENGTH=1,FILL='2'
FD NAME=L3,STARTLOC=11,LENGTH=1,FILL='R'
FD NAME=L4,STARTLOC=12,LENGTH=1,FILL='2'
FD NAME=L5,STARTLOC=13,LENGTH=1,FILL='M'
FD NAME=L6,STARTLOC=14,LENGTH=1,FILL='�'
FD NAME=RCED2,STARTLOC=15,LENGTH=62
FD NAME=RCEDATA3,STARTLOC=9,LENGTH=68
FD NAME=RCBDATA,STARTLOC=77,LENGTH=1�64
CREATE QUANTITY=1, �
NAME=(RCEURI,RCEDATA1,RCESTAT,L1,L2,L3,L4,L5,L6,RCED2,RCBDAT A)
CREATE QUANTITY=99, �
NAME=(RCEUR1,RCEDATA1,RCESTAT,RCEDATA3,RCBDATA)
END
/�
//�---------------------------------------------------
//� DEFINE AND INIT THE REQUEST QUEUE
//�---------------------------------------------------
//DEFCLUST EXEC PGM=IDCAMS,REGION=2M
//SYSPRINT DD SYSOUT=�
//RQDATA DD DSN=&TEMP,DISP=(OLD,DELETE)
//SYSIN DD �
/�-----------------------------------------------�/
/� DEFINE THE VSAM CLUSTER �/
/�-----------------------------------------------�/
DEFINE CLUSTER( -
NAME(DVG.NFTP23�.REQUEST.QUEUE) -
KEYS(4 �) -
REPLICATE -
RECORDS(1��)) -
DATA( -
NAME(DVG.NFTP23�.REQUEST.QUEUE.DATA) -
RECORDSIZE(16�� 6134)) -
INDEX( -
NAME(DVG.NFTP23�.REQUEST.QUEUE.INDEX) -
CONTROLINTERVALSIZE(1�24) IMBED)
/�-----------------------------------------------�/
/� INITIALIZE THE VSAM CLUSTER �/
/�-----------------------------------------------�/
REPRO -
INFILE(RQDATA) -
ODS(DVG.NFTP23�.REQUEST.QUEUE)
/�
Figure 41. Sample Job to Define the Request Queue (DVGMXRQ1)
68 NetView FTP V2 MVS Installation, Operation, and Administration