Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

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

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
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    Post subject: DFSORT to the control card deck to account for a zero record
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    Post subject: The entire job control deck w/output
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 Moderator


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

PostPosted: Thu Jun 14, 2007 10:16 pm    Post subject:
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    Post subject: Thank you
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    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm
No new posts Sort Large record length cmsmoon DFSORT/ICETOOL 14 Tue Apr 11, 2017 5:49 pm
No new posts PA02 - Programmtically control attent... dodithegreat IMS DB/DC 1 Thu Apr 06, 2017 8:33 pm
No new posts Format record to remove Leading zeroes Learncoholic DFSORT/ICETOOL 14 Wed Apr 05, 2017 2:43 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us