z/OS V1R6.0 DFSMS Access Method Services for Catalogs

PRINTvCOUNT specifies that 15 records are to be copied. Because the SKIP parameterwas not specified, access method services assumes the first 15 records are to becopied. The records are always added after the last record in the output data set.The IF ... THEN command sequence verifies that the REPRO command completedsuccessfully before the first PRINT command runs.The IF ... THEN command sequence ends with the HEX parameter because nocontinuation character follows this parameter. If you want two or more accessmethod services commands to run only when the IF statement is satisfied, enclosethe commands in a DO...END command sequence.The first PRINT command prints the records in the entry-sequenced cluster,KRL.EXAMPLE.ESDS1. Its parameters are:vvINFILE points to the VSDSET2 DD statement. The VSDSET2 DD statementidentifies the cluster, KRL.EXAMPLE.ESDS1.HEX specifies that each record is to be printed as a group of hexadecimalcharacters. An example of the printed record is shown in Figure 7.RBA OF RECORD = 0C2D6E8C5D9404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040Figure 7. Example of the Printed Record in HexadecimalThe second PRINT command, which runs even if the REPRO command wasunsuccessful, prints the first 15 records of the non-VSAM data set,EXAMPLE.NONVSAM. Its parameters are:vvvINDATASET identifies the non-VSAM data set, EXAMPLE.NONVSAM.COUNT specifies that 15 records are to be printed. Because SKIP was notspecified, access method services prints the first 15 records.CHARACTER specifies that each record is to be printed as a group ofalphanumeric characters. Figure 8 shows an example of the printed record.RECORD SEQUENCE NUMBER - 3CLARKFigure 8. Example of a Printed Alphanumeric Character RecordPrint a Linear Data Set Cluster: Example 5A linear data set cluster is partially printed.//PRINTLDS JOB ...//STEP1 EXEC PGM=IDCAMS//SYSPRINT DD SYSOUT=A//SYSIN DD *PRINT -INDATASET(EXAMPLE.LDS01) -FROMADDRESS(4096) -TOADDRESS(8191)/*Chapter 29. PRINT 303