cpuhawg
Active User
Joined: 14 Jun 2006 Posts: 331 Location: Jacksonville, FL
|
|
|
|
These used to work years ago. You need to code the VOLSER where the ?????? are. The DSN should not matter although you may need a valid HLQ for your office. You need to use the UNIT parameter that your office typically uses (like UNIT=TAPE, UNIT=TP6250, UNIT=TP9TRK, etc.). The output file (SYSUT2) should print the dataset name on the label of the tape. Each tape dataset is made up of HEADER/DATE/TRAILER, so (1,BLP) will make the program read and print the HEADER. The dataset name that is printed may only show the last 17 positions of the DSN. Also, if you have multiple datasets on a tape, you will need (4,BLP) to READ the 2nd one, (7,BLP) to read the 3rd one, etc.
Code: |
//COPY EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD DSN=HLQ.TAPE.DATASET.NAME,VOL=SER=??????,
// UNIT=TAPE,DISP=OLD,LABEL=(1,BLP,EXPDT=98000),
// DCB=(RECFM=U,BLKSIZE=32760)
//SYSUT2 DD SYSOUT=*
//SYSIN DD DUMMY
|
|
|