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
 

 

Sort jonkeys failing with SA78 ABEND (PHASE C 4)

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
ajeshsasi

New User


Joined: 13 Nov 2007
Posts: 3
Location: bangalore

PostPosted: Tue Mar 12, 2013 8:50 pm    Post subject: Sort jonkeys failing with SA78 ABEND (PHASE C 4)
Reply with quote

I have two files which are sorted in the steps //SL02S35A and //SL02S35B. These files are used in joinkeys with "SORTED,NOSEQCK" parameters.

Currently the first file is empty and the second file having valid data.Here in this case the sort card is failing with an error "SA78 ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT (PHASE C 4)"

This joinkey step is executing fine if both files having valid data

Job is as below

Code:
//SL02S35A EXEC PGM=SORT
//SORTIN   DD DSN=DMDPBL.JLDMORAP,DISP=SHR             
//SORTOUT  DD DSN=&&JL0S35L,DISP=(,PASS,DELETE),                     
//            UNIT=TEMP,SPACE=(CYL,(75,50),RLSE)                     
//SRTMSGE  DD SYSOUT=*                                               
//SYSIN    DD *                                                     
      SORT FIELDS=(50,9,ZD,A)                   BASE TPNB           
/*                                                                   
//*                                                                 
//SL02S35B EXEC PGM=SORT
//SORTIN   DD DSN=VXJJ0BPR.UNLOAD,DISP=SHR   
//SORTOUT  DD DSN=&&JL0S35M,DISP=(,PASS,DELETE),       
//            UNIT=TEMP,SPACE=(CYL,(75,50),RLSE)       
//SRTMSGE  DD SYSOUT=*                                 
//SYSIN    DD *                                       
  OPTION COPY                                         
    OUTREC FIELDS=(1,5,PD,ZD,LENGTH=9,8,5)             
    SORT FIELDS=(1,9,CH,A)                             
/*                                                     
//*                                                   
//SL02S35C EXEC PGM=SORT
//SORTJNF1 DD DSN=&&JL0S35L,DISP=SHR                   
//SORTJNF2 DD DSN=&&JL0S35M,DISP=SHR                   
//SORTOUT  DD DSN=&&JLSGRPL,DISP=(,PASS,DELETE),       
//            UNIT=TEMP,SPACE=(CYL,(75,50),RLSE)       
//SRTMSGE  DD SYSOUT=*                                 
//SYSIN    DD *                                       
  JOINKEYS FILE=F1,FIELDS=(50,9,A),SORTED,NOSEQCK     
  JOINKEYS FILE=F2,FIELDS=(1,9,A),SORTED,NOSEQCK       
  REFORMAT FIELDS=(F1:1,180,F2:10,5)                   
  SORT FIELDS=(181,5,CH,A,                SUB GROUP   
              50,9,ZD,A)                  BASE TPNB   
  OUTREC BUILD=(1,185)                                 
/*


in the above code the temporary file &&JL0S35L is empty and &&JL0S35M having valid data

The error log is as follows :


Code:
1ICE805I 0 JOBNAME: MT00ADN0 , STEPNAME: SL02S35C                               
 ICE802I 0 BLOCKSET     TECHNIQUE IN CONTROL                                   
 ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1                         
 ICE751I 0 C5-K76982 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE   E5-K80744
 ICE417I 0 THIS IS THE JOINKEYS F2 SUBTASK FOR SORTJNF2                         
 ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED                               
 ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES A
 ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 14:38 ON TUE M
0          MERGE FORMAT=BI,FIELDS=(1,9,A)                                       
           RECORD TYPE=F                                                       
           DEBUG NOABEND,ESTAE                                                 
           OPTION EQUALS,MSGPRT=ALL,LIST,NOCHECK,RESINV=0,DYNALLOC,SORTDD=JNF2,M
                          DDN=JNF2JMSG,SORTIN=SORTJNF2,COPY                     
 ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1                         
 ICE751I 0 C5-K76982 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE   E5-K80744
 ICE193I 0 ICEAM2 INVOCATION ENVIRONMENT IN EFFECT - ICEAM2 ENVIRONMENT SELECTED
 ICE088I 0 MT00ADN0.SL02S35C.        , INPUT LRECL = 14, BLKSIZE = 27986, TYPE =
 ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)                                 
 ICE156I 0 MAIN STORAGE ABOVE 16MB = (6234096,6234096)                         
 ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y
 ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ER
 ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT
 ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=N,WRKREL=Y,OUTREL=Y,CKPT
 ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW
 ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=Y,TEXIT=Y,LISTX=N,EFS=NONE    ,EXIT
 ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=60  ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAM
 ICE235I 0 OPTIONS: NULLOUT=RC0                                                 
 ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y                                         
 ICE084I 0 EXCP ACCESS METHOD USED FOR SORTJNF2                                 
 ICE889I 0 CT=MAX     , SB=3, L=0, D=0000, CCW=1MAM                             
 ICE902I 0 O       I PP11                                                       
 ICE751I 1 EF-BASE   F0-K66717 E8-K79990                                       
 ICE900I 0 CON=1,MUV=0,VOL=10,ENU=0,SBK=0,SRC=0,VEM=0                           
 ICE091I 0 OUTPUT LRECL = 14, TYPE = F                                         
 ICE055I 0 INSERT 0, DELETE 149786                                             
 ICE054I 0 RECORDS - IN: 149787, OUT: 0                                         
 ICE891I 1 6283208 WMAIN, 8248 CMAIN, MAX CALLOC, N SCN, B BA, 0 AZ, 0 BZ, NN QC
 ICE892I 1 14 RIN  27986 BLI  0 BLO  14 RUN  0 BUN  2817 CPU  00 CVC           
 ICE804I 1 SORTJNF2 EXCP COUNT: 2                                               
 ICE185A 0 AN SA78  ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT (PHASE C 4)
 ICE205A 1 CONTROL WAS NOT PASSED TO ICETEXIT                                   
 ICE186A 0 DFSORT CONTINUED AFTER ERROR AND OUTPUT IS USEABLE                   
 ICE052I 0 END OF DFSORT
Thanks
Ajesh S
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Mar 12, 2013 9:03 pm    Post subject: Reply to: Sort jonkeys failing with SA78 ABEND (PHASE C 4)
Reply with quote

what happened when You looked at the manual, to find Yourself about the abend

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2H792/CCONTENTS?SHELF=IEA2BK91&DN=SA22-7626-19&DT=20090112020001

not the latest one but the SA78 abend is there
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7226

PostPosted: Tue Mar 12, 2013 9:56 pm    Post subject: Reply to: Sort jonkeys failing with SA78 ABEND (PHASE C 4)
Reply with quote

Can you post any messages from the log or JES messages which show the Code associated with the abend?

Not related, but why do you do the pre-procesing/sorting, when it can be done in JNFnCNTL files and allowing JOINKEYS to do the sort?

I never like to suggest this, but if you re-run does the abend happen again?
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Mar 12, 2013 11:00 pm    Post subject: Reply to: Sort jonkeys failing with SA78 ABEND (PHASE C 4)
Reply with quote

Quote:
Currently the first file is empty and the second file having valid data.


please define EMPTY ...

allocated and never opened ... ==> IMPLIES GARBAGE and certaily all kind of weird errors

contains no records but a proper END OF FILE ???

in the first case make sure that the file is in the proper format

in the second case it is time to meditate on the DFSORT manuals to find out
if joinkey can be used when one of the files involved contains no records .
Back to top
View user's profile Send private message
ajeshsasi

New User


Joined: 13 Nov 2007
Posts: 3
Location: bangalore

PostPosted: Wed Mar 13, 2013 12:42 am    Post subject:
Reply with quote

Hi Enrico

Thanks for the reply

The file which I mentioned as EMPTY is the output of a cobol program. Sometime this file wont have any data.In such situation the job is failing in the joinkeys step.

Please see the SRTMSGE for the joinkeys step mentioned below

Code:
ICE805I 1 JOBNAME: MT00ADN0 , STEPNAME: SL02S35C                               
ICE802I 0 BLOCKSET     TECHNIQUE IN CONTROL                                     
ICE411I 0 THIS IS THE JOINKEYS MAIN TASK FOR JOINING F1 AND F2                 
ICE416I 0 JOINKEYS IS USING THE F1 SUBTASK FOR SORTJNF1 - SEE JNF1JMSG MESSAGES
ICE416I 1 JOINKEYS IS USING THE F2 SUBTASK FOR SORTJNF2 - SEE JNF2JMSG MESSAGES
ICE419I 0 JOINED RECORDS: TYPE=F, LENGTH=185                                   
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1                         
ICE992I 0 RA 5 WR 0 TR 8                                                       
ICE751I 0 C5-K76982 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE   E5-K80744
ICE143I 0 BLOCKSET     SORT  TECHNIQUE SELECTED                                 
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 19:03 ON TUE MA
            JOINKEYS FILE=F1,FIELDS=(50,9,A),SORTED,NOSEQCK                     
            JOINKEYS FILE=F2,FIELDS=(1,9,A),SORTED,NOSEQCK                     
            REFORMAT FIELDS=(F1:1,180,F2:10,5)                                 
            SORT FIELDS=(181,5,CH,A,                SUB GROUP                   
                        50,9,ZD,A)                  BASE TPNB                   
            OUTREC BUILD=(1,185)                                               
ICE411I 0 THIS IS THE JOINKEYS MAIN TASK FOR JOINING F1 AND F2                 
ICE416I 0 JOINKEYS IS USING THE F1 SUBTASK FOR SORTJNF1 - SEE JNF1JMSG MESSAGES
ICE416I 1 JOINKEYS IS USING THE F2 SUBTASK FOR SORTJNF2 - SEE JNF2JMSG MESSAGES
ICE419I 0 JOINED RECORDS: TYPE=F, LENGTH=185                                   
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1                         
ICE992I 0 RA 5 WR 0 TR 8                                                       
ICE751I 0 C5-K76982 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE   E5-K80744
ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED
ICE089I 1 MT00ADN0.SL02S35C.        , INPUT LRECL = 185, TYPE = F               
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)                                 
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6234096,6234096)                           
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,
ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERE
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=Y,TEXIT=Y,LISTX=N,EFS=NONE    ,EXITC
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=60  ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMI
ICE235I 0 OPTIONS: NULLOUT=RC0                                                 
ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y                                         
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTOUT                                   
ICE750I 0 DC 0 TC 0 CS DSVOO KSZ 14 VSZ 14                                     
ICE887I 0 CSES 0,0,0 ES 0,0,0                                                   
ICE886I 0 SYS 0 TSTG 0 FS 0 INIT 0 MAX 0 LEN 0                                 
ICE752I 0 FSZ=373814 RE  IGN=0 C  AVG=196 0  WSP=95162 E  DYN=20 53216         
ICE915I 0 MOFSZ=73,MOSZ=0,MOSYS=1941(2),MOSTG=2176,MEML=1941(1)                 
ICE916I 0 MOFR=0402,MOVR=VV                                                     
ICE996I 0 ESM=1536256,ESO=1536256,ESR=0,ESP=4096,ESS=16384,CES=1536256,HSZ=10485
ICE997I 0 HWSP=25042,HMAX=557188,HES=496896,ASV=557188,EQ=I3,HN=1               
ICE898I 0 OMAX=134,NMAX=557188,ENQT=557188,CMAX=25088,HU=99,BUN=53216,MD=NK,M4,D
ICE880I 0 QP=5 QA=5 HI=137 LI=133 MI=137 TZ=16516 N1=16384 N2=16384 SZ=8 HN=1   
ICE889I 0 CT=MAX     , SB=241, L=0, D=0000, CCW=1MAM                           
ICE901I 0 W 03PP17 02PP13 01PP13 04PP13 05PP13 06PP13 07PP13 08PP13             
ICE901I 0 W 09PP13                                                             
ICE902I 0 O PP10  I                                                             
ICE751I 1 DE-K61787 D5-K58148 D9-K61787 E8-K79990                               
ICE421I 0 JOINED RECORDS: COUNT=0                                               
ICE418A 4 JOINKEYS F2 SUBTASK FOR SORTJNF2 TERMINATED - SEE JNF2JMSG MESSAGES   
ICE052I 0 END OF DFSORT
[/quote]
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Wed Mar 13, 2013 12:58 am    Post subject:
Reply with quote

Ask your systems programmer to install the following Fix

http://www-01.ibm.com/support/docview.wss?rs=114&dc=DB550&q1=5740SM105&uid=isg1PM79010&loc=en_US&cs=utf-8&lang=en
Back to top
View user's profile Send private message
ajeshsasi

New User


Joined: 13 Nov 2007
Posts: 3
Location: bangalore

PostPosted: Wed Mar 13, 2013 11:22 am    Post subject:
Reply with quote

Thanks for the reply

Will inform my system programmers to do appropriate action
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 IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts Limit duplicate records in the SORT pshongal SYNCSORT 6 Mon Nov 21, 2016 12:54 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm
No new posts Sort records based on numeric field. Alks SYNCSORT 2 Wed Oct 19, 2016 10:14 pm
No new posts How to delete second instance from Fl... Gunapala CN DFSORT/ICETOOL 6 Tue Oct 18, 2016 11:42 pm


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