DGADTAMS Sample Program

Edit online

The following figure shows a sample of DGADTAMS using the Define Cluster AMS function. The ASM SYSPRINT output is routed to the existing user file XYZ.OUTPUT.

VADC1 PROCESS SNODE=BOSTON
DEFINE RUN TASK (PGM=DGADTAMS,                              -
 PARM=(C'FREE=CLOSE,RETURN=(DD),DISP=OLD,DSN=XYZ.OUTPUT',  -
       C' DELETE(VSAM.PAY.CHECKS) CLUSTER', -
       C' DEFINE CLUSTER                 -',-
       C' (NAME(VSAM.PAY.CHECKS)         -',-
       C' RECORDS(1)                     -',-
       C' VOLUMES(DCM009)                -',-
       C' OWNER(NDM)                     -',-
       C' NONINDEXED                     -',-
       C' RECORDSIZE(4089 4089)          -',-
       C' SHAREOPTIONS (2))              -',-
       C' DATA                           -',-
       C' (CONTROLINTERVALSIZE(4096)     -',-
       C' NAME(VSAM.PAY.CHECKS.DATA))    -',-
       C' CATALOG(USER.UCAT)')) SNODE