000100 //AB2217# JOB  CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=AB2217
000200 //*
000300 //* THE BEERSONG IN IBM 370 JCL & UTILITIES
000400 //* RENE VINCENT JANSEN, I-BIZZ IT SERVICES & CONSULTANCY
000500 //*
000200 //BOTTLES EXEC PGM=IEBDG,REGION=20K
000300 //SYSPRINT DD SYSOUT=*
000400 //SEQOUT DD DSN=&&BEER,UNIT=SYSDA,DISP=(,PASS),                  
       X
000500 //SPACE=(TRK,(10,10)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
000600 //SYSIN DD *
000700     DSD OUTPUT=(SEQOUT)
000800     FD  NAME=FIELD1,LENGTH=2,STARTLOC=1,FORMAT=ZD,               
       X
000900          INDEX=1
001000     FD  NAME=FIELD2,LENGTH=27,STARTLOC=4,
001100         PICTURE=27,'BOTTLES OF BEER ON THE WALL',ACTION=FX
001200     CREATE QUANTITY=100,NAME=(FIELD1,FIELD2)
001300     FD  NAME=FIELD3,LENGTH=2,STARTLOC=1,FORMAT=ZD,               
       X
001400          INDEX=1
001500     FD  NAME=FIELD4,LENGTH=15,STARTLOC=5,
001600          PICTURE=15,'BOTTLES OF BEER',ACTION=FX
001700     FD  NAME=FIELD5,LENGTH=28,STARTLOC=21,
001800          PICTURE=28,'TAKE ONE DOWN PASS IT AROUND',ACTION=FX
001900     FD  NAME=FIELD6,LENGTH=26,STARTLOC=5,
002000          PICTURE=26,'NO MORE BOTTLES OF BEER ON',ACTION=FX
002100     FD  NAME=FIELD7,LENGTH=8,STARTLOC=32,
002200         PICTURE=8,'THE WALL',ACTION=FX
002300     CREATE QUANTITY=100,NAME=(FIELD3,FIELD4,FIELD5)
002400     CREATE QUANTITY=1,NAME=(FIELD6,FIELD7)
002500     END
002600 /*
002700 //SORT EXEC PGM=SORT,REGION=512K,PARM='MSG=AP'
002800 //SYSOUT DD SYSOUT=*
002900 //SYSUDUMP DD SYSOUT=*
003000 //SYSPRINT DD SYSOUT=*
003100 //SORTLIB DD DISP=SHR,DSN=SYS1.SORTLIB
003200 //*ORTOUT DD SYSOUT=*,DCB=(BLKSIZE=80,RECFM=F),
003300 //SORTOUT DD DSN=&&OUT,DISP=(,PASS),UNIT=SYSDA,                  
       X
003400 //SPACE=(TRK,(10,10)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
003500 //SORTWK01 DD UNIT=2314,SPACE=(CYL,(5,5))
003600 //SORTWK02 DD UNIT=2314,SPACE=(CYL,(5,5))
003700 //SORTWK03 DD UNIT=2314,SPACE=(CYL,(5,5))
003800 //SYSIN DD *
003900  SORT FIELDS=(1,2,ZD,D,20,25,CH,D,5,2,CH,A)
004000  RECORD TYPE=F,LENGTH=80
004100  END
004200 /*
004300 //SORTIN DD DSN=*.BOTTLES.SEQOUT,DISP=(SHR,PASS)
004400 //PRINT EXEC PGM=IEBPTPCH
004500 //SYSPRINT DD SYSOUT=*
004600 //SYSUT1   DD DSN=*.SORT.SORTOUT,DISP=(SHR,PASS)
004700 //SYSUT2   DD SYSOUT=*
004800 //SYSIN DD *
004900    PUNCH STOPAFT=200
005000    TITLE ITEM=('THE BEERSONG')
005100 /*