Sergio Lima pisze:
Hello ,
If not disturb, do you have a Sample JCL for run IEBGENER?
//AAAALBL1 JOB 234,R.SKORUPKA,NOTIFY=&SYSUID,CLASS=1
//** TPLIB
//** Odczyt etykiet z taśmy
//** Działa po warunkiem, że JOBLCASS 1 ma BLP=YES
//**
//** Nazwa zbioru i VOLSER są b/znaczenia.
// SET WYJ=AAAA.TAP.VANYVOL
//K10 EXEC PGM=IEFBR14
//KASUJ DD DSN=&WYJ,DISP=(MOD,DELETE),SPACE=(TRK,1)
//K20 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT2 DD DSN=&WYJ,DISP=(,CATLG),SPACE=(TRK,(1,1)),
// RECFM=FB,LRECL=80,DSORG=PS
//SYSUT1 DD DISP=OLD,UNIT=3490,VOL=SER=ANYVOL,LABEL=(1,BLP),
// RECFM=F,BLKSIZE=80,DSN=BLEBLE
The above is first step. You add more steps and change "1" in
LABEL=(1,BLP). Next values are: 3,4, 6,7, 9,10, 12,13, 15,16, etc.
In that way you will read HDR and EOF labels (1,4,7,10 are HDRs, 3,6,9,
are EOFs). In general HDR and EOF contain almost the same content.
The job SHOULD end with ABEND S613, otherwise you should more steps.
Disclaimers:
1. This is quick & DIRTY method. Keep it in mind.
2. You have to use BLP, which is probably protected, maybe using several
"locks".
3. The output need to be interpreted.
Read the following manual: "DFSMS: Using Magnetic Tapes" SC26-7412
--
Radoslaw Skorupka
Lodz, Poland
--
BRE Bank SA
ul. Senatorska 18
00-950 Warszawa
www.brebank.pl
Sąd Rejonowy dla m. st. Warszawy
XII Wydział Gospodarczy Krajowego Rejestru Sądowego,
nr rejestru przedsiębiorców KRS 0000025237
NIP: 526-021-50-88
Według stanu na dzień 16.07.2010 r. kapitał zakładowy BRE Banku SA (w całości wpłacony) wynosi 168.248.328 złotych.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
