You can use the ZPSIVP job to verify the activation of Syncsort ZPSaver. The JCL shown in the following figure, will generate data and run a sample sort. You must customize the ZPSIVP job to suit your environment.
If Syncsort ZPSaver is configured as the system sort, the STEPLIB DD can be removed. However, if Syncsort ZPSaver is not the system sort, then you must specify the appropriate libraries in the STEPLIB DD where Syncsort ZPSaver has been enabled.
Review the resulting job log for the following message:
WER558I ZPSORT EXECUTED
If you see this message in SYSOUT, Syncsort ZPSaver has been properly enabled.
If you do not see this message, contact Precisely Support for further assistance.
Figure 2. ZPSIVP job to verify the activation of ZPSaver
//JOB
//GENDATA EXEC PGM=IEBDG
//SYSPRINT DD SYSOUT=*
//OUTSET DD DSN=&&INPUT,DISP=(,PASS),SPACE=(CYL,(800,100),RLSE),
// DCB=(DSORG=PS,LRECL=250,BLKSIZE=0,RECFM=FB),UNIT=SYSDA
//SYSOUT DD SYSOUT=*
//SYSIN DD *
DSD OUTPUT=(OUTSET)
FD NAME=FIELD1,LENGTH=4,STARTLOC=1,FORMAT=RA
FD NAME=FIELD2,LENGTH=4,STARTLOC=5,FORMAT=RA
FD NAME=FIELD3,LENGTH=32,FORMAT=AL,ACTION=SL
CREATE NAME=(FIELD1,FIELD2,FIELD3),FILL=X'44',QUANTITY=3145728
END
//********************************************************************
//ZPSAVER EXEC PGM=SORT,REGION=0M,PARM='BMSG,GMSG'
//STEPLIB DD DISP=SHR,DSN=SYNCSORT.ZPSAVER.SYNCLINK
// DD DISP=SHR,DSN=SYNCSORT.ZPSAVER.SYNCRENT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=(OLD,DELETE),DSN=&&INPUT
//SYSIN DD *
INCLUDE COND=(8,1,BI,NE,X'FF')
INREC OVERLAY=(20:11,8,HEX,
40:50,2,BI,ADD,60,2,BI,DIV,80,2,BI,
60:20,4,BI,MOD,+2,PD,LENGTH=10,
80:5,4,BI,M1,LENGTH=11)
SORT FIELDS=(1,8,BI,A)
OUTREC FIELDS=(1,8,9,32,20,21,15,19,10,20,16,20,21,20,10,31,11,29,
10,20,20,10,15,20)
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(800,100),RLSE),
// DSN=&OUTPUT
|