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

REPROassumed that the input data set’s logical records contain DBCS characters and havean LRECL, for this example, of 100 bytes and the record format is fixed lengthrecords.//REPRO JOB ...//STEP1 EXEC PGM=IDCAMS//SYSPRINT DD SYSOUT=A//OUTDS DD DSN=MY.DATA,DISP=(NEW,CATLG),VOL=SER=VSER01,// UNIT=3380,DCB=(LRECL=104,RECFM=F),SPACE=(TRK,(20,10))//SYSIN DD *REPRO -INDATASET(USER.REPRO.EXAMPLE) -OUTFILE(OUTDS) -DBCS -INSERTSHIFT((11 30)(51 60))/*The parameters are:vvvvINDATASET specifies the name of USER.REPRO.EXAMPLE the data set to becopied. This data set might not contain SO and SI characters.OUTFILE specifies the name of the output data set, MY.DATA. This data set willhave SO and SI characters inserted. Because four shift characters are beinginserted, the LRECL must be 4 bytes larger than the input data set’s LRECL.DBCS specifies that the data contains DBCS characters and should be criteriachecked.INSERTSHIFT specifies that a SO character is inserted before offsets 11 and 51 ofthe logical record and a SI character is inserted after offsets 30 and 60 of thelogical record.Encipher Using System Keys: Example 7In this example, an enciphered copy of part of a VSAM relative record data set isproduced using a tape as output. The enciphered data set is deciphered at aremote installation. The keys are managed by the Programmed CryptographicFacility, the Cryptographic Unit Support, or the z/OS Integrated CryptographicService Facility.//ENSYS JOB ...//STEP1 EXEC PGM=IDCAMS//CLEAR DD DSN=RRDS1,DISP=SHR//CRYPT DD DSN=RRDSEN,LABEL=(1,SL),DISP=NEW,// UNIT=3480,VOL=SER=TAPE01,// DCB=(DEN=3,RECFM=FB,LRECL=516,BLKSIZE=5160)//SYSPRINT DD SYSOUT=A//SYSIN DD *REPRO -INFILE(CLEAR) -OUTFILE(CRYPT) -COUNT(50) -ENCIPHER -(EXTERNALKEYNAME(AKEY27) -STOREDATAKEY -CIPHERUNIT(4) -USERDATA(CONF))/*Job control language statements:vvCLEAR DD describes the relative record data set.CRYPT DD describes and allocates a magnetic tape file. LRECL is the relativerecord data set record size plus 4.Chapter 30. REPRO 323