View previous topic :: View next topic
Author
Message
Bill Ross New User Joined: 25 Jan 2007Posts: 39 Location: Charleston SC
Frank you helped me previously w/a task that I had to generate a total record. I never expected (famous last words) for the total in the input file to be zero. I always tested w/an input file that the total was greater than zero.
The input file is an 80 byte FB record that is as follows
Code:
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
********************************* Top of Data **********************************
000000..........................................................................
The control cards are as follows
Code:
//SYSIN DD *
OPTION COPY
OUTFIL REMOVECC,NODETAIL,
TRAILER1=('001001',
TOT=(1,6,ZD,M11,LENGTH=6),C'000000000000',C'B')
/*
The output file is an 80 byte FB record.
What modification do I need to make to the control card deck to account for a zero record.
Back to top
Bill Ross New User Joined: 25 Jan 2007Posts: 39 Location: Charleston SC
The return code from the step was a 20. I am not sure why the TOOLMSG and the DFSMSG didn't print.
The entire jobdeck is
Code:
//STEP03 EXEC PGM=ICEMAN
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=ABC.TOTAL.#04,
// DISP=SHR
//OUT DD DSN=DEF.TOTAL.#03,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=27760),
// DISP=(,CATLG,DELETE),
// UNIT=DISK6,
// SPACE=(CYL,(15,15),RLSE)
//SORTDIAG DD DUMMY
//SYSIN DD *
OPTION COPY
OUTFIL REMOVECC,NODETAIL,
TRAILER1=('001001',
TOT=(1,6,ZD,M11,LENGTH=6),C'000000000000',C'B')
/*
The output is
Code:
IEF142I ROSS07 STEP03 - STEP WAS EXECUTED - COND CODE 0020
IEF285I ROSSBI.ROSS07.JOB03252.D0000102.? SYSOUT
IEF285I ROSSBI.ROSS07.JOB03252.D0000103.? SYSOUT
IEF285I ABC.TOTAL.#04 KEPT
IEF285I VOL SER NOS= WORK27.
IEF285I DEF.TOTAL.#03 CATALOGED
IEF285I VOL SER NOS= VSAM35.
IEF285I ROSSBI.ROSS07.JOB03252.D0000101.? SYSIN
************************************************************************************************
JOBNAME SNUM STNAME PGNAME STEPINIT STEPTERM STEPTCB STEPSRB ELASD STEPSWAP REGN CODE
ROSS07 001 STEP03 ICEMAN 10.33.16 10.33.20 .01 .00 4 0 V 476K R014
PAGEINS PAGEOUTS PSWAPIN PSWAPOUT VIOPIN VIOPOUT
0 0 0 0 0 0
************************************************************************************************
IEF373I STEP/STEP03 /START 2007165.1033
IEF374I STEP/STEP03 /STOP 2007165.1033 CPU 0MIN 00.01SEC SRB 0MIN 00.00SEC VIRT 212K SYS 264K EXT 8K SYS 11796K
IEF285I CHNG.LVL6.LOADLIB KEPT
IEF285I VOL SER NOS= PPRD04.
IEF285I IMSDB.IMP1.SDFSRESL KEPT
IEF285I VOL SER NOS= IMP001.
IEF285I PROD.LVL6.LOADLIB KEPT
IEF285I VOL SER NOS= PPRD02.
IEF285I MQM.SCSQLOAD KEPT
IEF285I VOL SER NOS= MVSRS3.
IEF285I MQM.SCSQANLE KEPT
IEF285I VOL SER NOS= MVSRS3.
IEF285I MQM.SCSQAUTH KEPT
IEF285I VOL SER NOS= MVSRS3.
************************************************************************************************
JOBNAME PGN SRVUNITS TRANACTV JOB INIT JOB TERM TCBJOB SRBJOB ELASD SWAPJOB
ROSS07 0 57 949 10.33.16 10.33.20 .01 .00 4 0
************************************************************************************************
IEF375I JOB/ROSS07 /START 2007165.1033
IEF376I JOB/ROSS07 /STOP 2007165.1033 CPU 0MIN 00.01SEC SRB 0MIN 00.00SEC
************************************************************ End of Data **********************************************************
Back to top
Frank Yaeger DFSORT Developer Joined: 15 Feb 2005Posts: 7129 Location: San Jose, CA
Bill,
You are mixing up DFSORT and ICETOOL JCL. You are running a DFSORT job so you need the following:
Code:
//STEP03 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=ABC.TOTAL.#04,
// DISP=SHR
//SORTOUT DD DSN=DEF.TOTAL.#03,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=27760),
// DISP=(,CATLG,DELETE),
// UNIT=DISK6,
// SPACE=(CYL,(15,15),RLSE)
//SORTDIAG DD DUMMY
//SYSIN DD *
OPTION COPY
OUTFIL REMOVECC,NODETAIL,
TRAILER1=('001001',
TOT=(1,6,ZD,M11,LENGTH=6),C'000000000000',C'B')
/*
Quote:
What modification do I need to make to the control card deck to account for a zero record.
None. A value of 000000 in the input record would produce a total of 000000.
Back to top
Bill Ross New User Joined: 25 Jan 2007Posts: 39 Location: Charleston SC
Thank you.
Back to top
Please enable JavaScript!