IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

DFSORT to the control card deck to account for a zero record


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Bill Ross

New User


Joined: 25 Jan 2007
Posts: 39
Location: Charleston SC

PostPosted: Thu Jun 14, 2007 8:29 pm
Reply with quote

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
View user's profile Send private message
Bill Ross

New User


Joined: 25 Jan 2007
Posts: 39
Location: Charleston SC

PostPosted: Thu Jun 14, 2007 9:40 pm
Reply with quote

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
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Thu Jun 14, 2007 10:16 pm
Reply with quote

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
View user's profile Send private message
Bill Ross

New User


Joined: 25 Jan 2007
Posts: 39
Location: Charleston SC

PostPosted: Thu Jun 14, 2007 10:54 pm
Reply with quote

Thank you.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts Modifying Date Format Using DFSORT DFSORT/ICETOOL 9
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
Search our Forums:

Back to Top