warp5 Intermediate
Joined: 02 Dec 2002 Posts: 429 Topics: 18 Location: Germany
|
Posted: Mon Sep 19, 2005 1:36 am Post subject: |
|
|
Hier is a sample job - you can extract the information you need from it.
Code: |
//IPLTXT EXEC PGM=ICKDSF
//STEPLIB DD DISP=SHR,DSN=SYS1.LINKLIB,
// UNIT=3390,VOL=SER=&SYSWRA
//SYSPRINT DD SYSOUT=*
//IPLTEXT DD DISP=SHR,DSN=SYS1.SAMPLIB(IPLRECS),
// UNIT=3390,VOL=SER=&SYSWRA
// DD DISP=SHR,DSN=SYS1.SAMPLIB(IEAIPL00),
// UNIT=3390,VOL=SER=&SYSWRA
//IPLVOL DD DISP=SHR,UNIT=3390,VOL=SER=&SYSWRA
//SYSIN DD *
REFORMAT DDNAME(IPLVOL) IPLDD(IPLTEXT,OBJ) -
VERIFY(&SYSWRA) BOOTSTRAP
/*
|
|
|