mirror of
https://github.com/moshix/mvs.git
synced 2026-01-11 23:43:00 +00:00
37 lines
1.2 KiB
Plaintext
37 lines
1.2 KiB
Plaintext
//HERC01S JOB (SETUP),
|
|
// 'TEST SORT',
|
|
// CLASS=A,
|
|
// MSGCLASS=H
|
|
//SORTDG EXEC PGM=IEBDG
|
|
//SYSPRINT DD SYSOUT=A
|
|
//SEQOUT DD UNIT=3390,DCB=(LRECL=80,RECFM=FB,BLKSIZE=8000),
|
|
// DSN=&&SORTTEMP,DISP=(,PASS),SPACE=(CYL,(200,20))
|
|
//SYSIN DD DATA
|
|
DSD OUTPUT=(SEQOUT) ,,
|
|
FD NAME=F1,LENGTH=2,STARTLOC=1,FORMAT=RA
|
|
FD NAME=F2,LENGTH=4,STARTLOC=3,FORMAT=RA
|
|
FD NAME=F3,LENGTH=4,STARTLOC=7,FORMAT=RA
|
|
FD NAME=F4,LENGTH=10,STARTLOC=11,FORMAT=ZD,INDEX=1
|
|
FD NAME=F5,LENGTH=60,STARTLOC=21
|
|
CREATE QUANTITY=3000000,NAME=(F1,F2,F3,F4,F5)
|
|
END
|
|
/*
|
|
//SORT EXEC PGM=SORT,REGION=512K,PARM='MSG=AP'
|
|
//SYSOUT DD SYSOUT=A
|
|
//SYSUDUMP DD SYSOUT=A
|
|
//SYSPRINT DD SYSOUT=A
|
|
//SORTLIB DD DSNAME=SYS1.SORTLIB,DISP=SHR
|
|
//SORTOUT DD DUMMY,DCB=(BLKSIZE=80,RECFM=F)
|
|
//SORTWK01 DD UNIT=2314,SPACE=(CYL,(185,5)),VOL=SER=SORT01
|
|
//SORTWK02 DD UNIT=2314,SPACE=(CYL,(185,5)),VOL=SER=SORT02
|
|
//SORTWK03 DD UNIT=2314,SPACE=(CYL,(185,5)),VOL=SER=SORT03
|
|
//SORTWK04 DD UNIT=2314,SPACE=(CYL,(185,5)),VOL=SER=SORT04
|
|
//SORTWK05 DD UNIT=2314,SPACE=(CYL,(185,5)),VOL=SER=SORT05
|
|
//SORTWK06 DD UNIT=2314,SPACE=(CYL,(185,5)),VOL=SER=SORT06
|
|
//SYSIN DD *
|
|
SORT FIELDS=(1,10,CH,A)
|
|
RECORD TYPE=F,LENGTH=(80)
|
|
END
|
|
/*
|
|
//SORTIN DD UNIT=3390,DSN=&&SORTTEMP,DISP=SHR
|