SHARE
TWEET

Untitled

a guest Nov 18th, 2017 175 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  000100 //RZE0008X JOB NOTIFY=&SYSUID,REGION=512K,TIME=1
  2.  000200 //*STEP 1
  3.  000300 //STEP1 EXEC PGM=IEBDG
  4.  000400 //SYSPRINT DD SYSOUT=*
  5.  000500 //SYSIN DD *
  6.  000600  DSD    OUTPUT=(OUTSET)
  7.  000700  FD     NAME=FIELD1,LENGTH=3,PICTURE=3,'DDD',ACTION=FX
  8.  000800  FD     NAME=FIELD2,LENGTH=6,PICTURE=6,'DDD   ',ACTION=RO
  9.  000900  FD     NAME=FIELD3,LENGTH=8,PICTURE=8,'UUU     ',ACTION=FX
  10.  001000  FD     NAME=FIELD4,LENGTH=8,PICTURE=8,' BB    B',ACTION=RO
  11.  001100  FD     NAME=FIELD5,LENGTH=8,PICTURE=8,'   AAA  ',ACTION=RO
  12.  001200  FD     NAME=FIELD6,LENGTH=8,PICTURE=8,'   CCCCC',ACTION=RO
  13.  001300  FD     NAME=FIELD7,LENGTH=8,PICTURE=8,'  DDDD  ',ACTION=WV
  14.  001400  FD     NAME=FIELD8,LENGTH=8,PICTURE=8,'  C  CC ',ACTION=WV
  15.  001500  FD     NAME=FIELD9,LENGTH=8,PICTURE=8,'  DD   D',ACTION=WV
  16.  001600  FD     NAME=FIELD10,LENGTH=8,PICTURE=8,'  CCC   ',ACTION=WV
  17.  001700  CREATE QUANTITY=5,NAME=(FIELD1,FIELD2,FIELD3,FIELD4,FIELD5,         X
  18.  001800         FIELD6,FIELD7,FIELD8,FIELD9,FIELD10)
  19.  001900  END
  20.  001901 //SYSPRINT DD SYSOUT=*
  21.  001902 //SYSIN DD *
  22.  001910  DSD    OUTPUT=(OUTSET)
  23.  001920  FD     NAME=POLE1,LENGTH=8,PICTURE=8,'YYYYYYYY',ACTION=FX
  24.  001930  FD NAME=POLE2,LENGTH=8,PICTURE=8,'XXXXXXXX',ACTION=FX
  25.  001940  CREATE QUANTITY=2,NAME=(POLE1,POLE2)
  26.  001950  END
  27.  002000 //OUTSET DD DSN=RZE0008.TESTDOM.A1,DISP=(NEW,CATLG),
  28.  002100 //      RECFM=F,LRECL=80,SPACE=(80,300)
  29.  002200 //*STEP 2
  30.  002300 //STEP2 EXEC PGM=IEBGENER,COND=(0,NE,STEP1)
  31.  002400 //SYSPRINT DD SYSOUT=*
  32.  002500 //SYSUT1 DD DSN=RZE0008.TESTDOM.A1,DISP=(SHR)
  33.  002600 //SYSUT2 DD DSN=RZE0008.TESTDOM.A1A,DISP=(NEW,CATLG),
  34.  002700 //      RECFM=FB,LRECL=80,BLKSIZE=3200,SPACE=(80,300)
  35.  002800 //SYSIN DD DUMMY
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top