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

SYMNAMES problem


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

New User


Joined: 27 Aug 2006
Posts: 51
Location: Taiwan

PostPosted: Thu Dec 22, 2016 7:47 am
Reply with quote

Please help to identify the problem.

JCL symbol:
Code:
//STEP1    EXEC PGM=ICETOOL                                             
//TOOLMSG   DD  SYSOUT=*                                               
//DFSMSG    DD  SYSOUT=*                                               
//SYMNAMES  DD *                                                       
NEXT-BUSINESS-DATE,C'20161221'                                         
//X0    DD DSN=&&X0,DISP=(,PASS),SPACE=(TRK,(200,60)),UNIT=SYSDA       
//SYM   DD DSN=&&CNST,DISP=(,PASS),SPACE=(TRK,(5,5)),UNIT=SYSDA         
//IN    DD *                                                           
AAAA                                                                   
//TOOLIN DD *                                                           
  COPY FROM(IN) TO(SYM) USING(CTR1)                                     
//CTR1CNTL DD *                                                         
  OUTFIL BUILD=(NEXT-BUSINESS-DATE)                                     
/*                                                                     
//STEP2    EXEC PGM=ICETOOL                                             
//TOOLMSG   DD  SYSOUT=*                                               
//DFSMSG    DD  SYSOUT=*                                               
//SYMNAMES  DD DSN=&&CNST,DISP=SHR                                     
//T0    DD DSN=&&T0,DISP=(,PASS),SPACE=(TRK,(200,60)),UNIT=SYSDA       
//VSAMF DD *                                                           
AAA                                                                     
/*                                                                     
//TOOLIN DD *                                                           
  COPY FROM(VSAMF) TO(T0)                                               
//                                                                     


Error Message:[quote]10.03.42 JOB03116 -JOBNAME STEPNAME PROCSTEP RC EXCP CPU SRB CLOCK
10.03.42 JOB03116 -ZBFCNT1J DELMON 00 10 .00 .00 .00
10.03.42 JOB03116 -ZBFCNT1J STEP1 00 37 .00 .00 .00
10.03.42 JOB03116 IEC141I 013-20,IGG0191A,ZBFCNT1J,TEST,SYMNAMES,755F,TASMA5,
814 SYS16357.T100341.RA000.ZBFCNT1J.CNST.H03
10.03.42 JOB03116 IEA995I SYMPTOM DUMP OUTPUT 815
815 SYSTEM COMPLETION CODE=013 REASON CODE=00000020
815 TIME=10.03.42 SEQ=17513 CPU=0000 ASID=008A
815 PSW AT TIME OF ERROR 075C1000 80D9F3B6 ILC 2 INTC 0D
815 NO ACTIVE MODULE FOUND
815 NAME=UNKNOWN
815 DATA AT PSW 00D9F3B0 - 4100302C 0A0D010D A7E5014B
815 AR/GR 0: 008FE990/00D9F6C0 1: 00000000/A4013000 [code]

The explanation of Reason Code 20:
Quote:
10.03.42 JOB03116 -JOBNAME STEPNAME PROCSTEP RC EXCP CPU SRB CLOCK
10.03.42 JOB03116 -ZBFCNT1J DELMON 00 10 .00 .00 .00
10.03.42 JOB03116 -ZBFCNT1J STEP1 00 37 .00 .00 .00
10.03.42 JOB03116 IEC141I 013-20,IGG0191A,ZBFCNT1J,TEST,SYMNAMES,755F,TASMA5,
814 SYS16357.T100341.RA000.ZBFCNT1J.CNST.H03
10.03.42 JOB03116 IEA995I SYMPTOM DUMP OUTPUT 815
815 SYSTEM COMPLETION CODE=013 REASON CODE=00000020
815 TIME=10.03.42 SEQ=17513 CPU=0000 ASID=008A
815 PSW AT TIME OF ERROR 075C1000 80D9F3B6 ILC 2 INTC 0D
815 NO ACTIVE MODULE FOUND
815 NAME=UNKNOWN
815 DATA AT PSW 00D9F3B0 - 4100302C 0A0D010D A7E5014B
815 AR/GR 0: 008FE990/00D9F6C0 1: 00000000/A4013000


Please help!
Back to top
View user's profile Send private message
jacobdng

New User


Joined: 27 Aug 2006
Posts: 51
Location: Taiwan

PostPosted: Thu Dec 22, 2016 7:50 am
Reply with quote

Sorry,

I messed up the error message and the explanation.
Allow me to paste them again:

Error Message
Code:
10.03.42 JOB03116  -JOBNAME  STEPNAME PROCSTEP    RC   EXCP    CPU    SRB  CLOCK
10.03.42 JOB03116  -ZBFCNT1J          DELMON      00     10    .00    .00    .00
10.03.42 JOB03116  -ZBFCNT1J          STEP1       00     37    .00    .00    .00
10.03.42 JOB03116  IEC141I 013-20,IGG0191A,ZBFCNT1J,TEST,SYMNAMES,755F,TASMA5, 
   814             SYS16357.T100341.RA000.ZBFCNT1J.CNST.H03                     
10.03.42 JOB03116  IEA995I SYMPTOM DUMP OUTPUT  815                             
   815             SYSTEM COMPLETION CODE=013  REASON CODE=00000020             
   815              TIME=10.03.42  SEQ=17513  CPU=0000  ASID=008A               
   815              PSW AT TIME OF ERROR  075C1000   80D9F3B6  ILC 2  INTC 0D   
   815                NO ACTIVE MODULE FOUND                                   
   815                NAME=UNKNOWN                                             
   815                DATA AT PSW  00D9F3B0 - 4100302C  0A0D010D  A7E5014B     
   815                AR/GR 0: 008FE990/00D9F6C0   1: 00000000/A4013000         


The explanation of Reason Code:
Quote:
10.03.42 JOB03116 -JOBNAME STEPNAME PROCSTEP RC EXCP CPU SRB CLOCK
10.03.42 JOB03116 -ZBFCNT1J DELMON 00 10 .00 .00 .00
10.03.42 JOB03116 -ZBFCNT1J STEP1 00 37 .00 .00 .00
10.03.42 JOB03116 IEC141I 013-20,IGG0191A,ZBFCNT1J,TEST,SYMNAMES,755F,TASMA5,
814 SYS16357.T100341.RA000.ZBFCNT1J.CNST.H03
10.03.42 JOB03116 IEA995I SYMPTOM DUMP OUTPUT 815
815 SYSTEM COMPLETION CODE=013 REASON CODE=00000020
815 TIME=10.03.42 SEQ=17513 CPU=0000 ASID=008A
815 PSW AT TIME OF ERROR 075C1000 80D9F3B6 ILC 2 INTC 0D
815 NO ACTIVE MODULE FOUND
815 NAME=UNKNOWN
815 DATA AT PSW 00D9F3B0 - 4100302C 0A0D010D A7E5014B
815 AR/GR 0: 008FE990/00D9F6C0 1: 00000000/A4013000


Please help.
Back to top
View user's profile Send private message
jacobdng

New User


Joined: 27 Aug 2006
Posts: 51
Location: Taiwan

PostPosted: Thu Dec 22, 2016 7:53 am
Reply with quote

Sorry again!

The explanation of Reason Code 20:
Quote:
20 An OPEN macro instruction was issued for a sequential data set using queued access. BLKSIZE is not a
multiple of LRECL, or LRECL is 0 with RECFM=FB or RECFM=FBS, or BLKSIZE is not at least four bytes greater
than LRECL with RECFM=V.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Thu Dec 22, 2016 9:49 am
Reply with quote

Talk to your site support group. You do not specify LRECL or BLKSIZE for any of the new data sets in your JCL; the default values will depend upon your site and how it uses ISMF. The DD * is usually LRECL 80 but that can vary if your site uses JES3; it appears likely that the defaults at your site for new data sets are not compatible with LRECL 80.
Back to top
View user's profile Send private message
jacobdng

New User


Joined: 27 Aug 2006
Posts: 51
Location: Taiwan

PostPosted: Thu Dec 22, 2016 10:44 am
Reply with quote

Thank you so much.

I fixed the problem by changing the temporary file to a physical one,and specified with LRECL=80.

Case is closed.
Back to top
View user's profile Send private message
Abid Hasan

New User


Joined: 25 Mar 2013
Posts: 88
Location: India

PostPosted: Thu Dec 22, 2016 11:31 am
Reply with quote

Hello,

For the S013, DFSORT programming guide is very particular about the format of the SYMNAMES dataset (TEMP or otherwise) which you'd not adhered to at the start; so adding an '80:X' to your SYMNAMES BUILD resolves that (relevant emphasis added in the quote):

Quote:
A symbol data set can be a sequential data set, a partitioned member or a DD * data set; all three types can be concatenated together for the SYMNAMES DD. Each symbol data set must contain SYMNAMES statements describing the symbols for fields and constants to be used for the DFSORT or ICETOOL application. Each symbol data set must have the following attributes: RECFM=F or RECFM=FB and LRECL=80.

For best performance, use a large block size, such as the system determined optimum block size, for all DFSORT symbol data sets.


Aside, out of plain curiosity it'd be great if you can show us the final working solution.

Reason for asking this is, from the JCL posted, the symbols generated will have only the date and no identifier to recognise this date symbol, which when substituted to the next ICETOOL step should ideally return the syntax error: ICE272A, for the condition: "The symbol starts with a number (0-9) or a hyphen (-)"
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Thu Dec 22, 2016 12:37 pm
Reply with quote

As Abid has indicated, the SYMNAMES requires an LRECL of 80.

DFSORT is perfectly capable of creating the LRECL of an output data set, it just does it from what you tell it, and you told it "eight". 80:X (put a blank at position 80, and blank-fill any intervening positions on the record) is the best way to do what you want. Now you have an actual LRECL in your JCL, if you were to want to change the lengths of the record, you'd have two places to consider instead of one.

Like Abid, I'm curious about what you have got working, because putting a date on a record and calling it SYMNAMES won't give you a sort symbol.
Back to top
View user's profile Send private message
jacobdng

New User


Joined: 27 Aug 2006
Posts: 51
Location: Taiwan

PostPosted: Fri Dec 23, 2016 10:09 am
Reply with quote

It's my bad.
As Abid addressed, I have to add an identifier in addition to add "80:X" so that the JCL can be successfully submitted.

The modified JCL symbol:
Code:
//STEP1    EXEC PGM=ICETOOL                                             
//TOOLMSG   DD  SYSOUT=*                                               
//DFSMSG    DD  SYSOUT=*                                               
//SYMNAMES  DD *                                                       
NEXT-BUSINESS-DATE,C'20161221'                                         
//X0    DD DSN=&&X0,DISP=(,PASS),SPACE=(TRK,(200,60)),UNIT=SYSDA       
//SYM   DD DSN=&&CNST,DISP=(,PASS),SPACE=(TRK,(5,5)),UNIT=SYSDA         
//IN    DD *                                                           
AAAA                                                                   
//TOOLIN DD *                                                           
  COPY FROM(IN) TO(SYM) USING(CTR1)                                     
//CTR1CNTL DD *                                                         
* OUTFIL BUILD=(NEXT-BUSINESS-DATE,80:X)                               
  OUTFIL BUILD=(C'TEST-YYMM,',NEXT-BUSINESS-DATE,80:X)                 
/*                                                                     
//STEP2    EXEC PGM=ICETOOL                                             
//TOOLMSG   DD  SYSOUT=*                                               
//DFSMSG    DD  SYSOUT=*                                               
//SYMNAMES  DD DSN=&&CNST,DISP=SHR                                     
//T0    DD DSN=&&T0,DISP=(,PASS),SPACE=(TRK,(200,60)),UNIT=SYSDA       
//VSAMF DD *                                                           
AAA                                                                     
/*                                                                     
//TOOLIN DD *                                                           
  COPY FROM(VSAMF) TO(T0)                                               
//                                                                     


Thanks for your attention.

Jacob
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 Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts z/vm installation problem All Other Mainframe Topics 0
No new posts Job scheduling problem. JCL & VSAM 9
No new posts Problem with IFTHEN=(WHEN=GROUP,BEGIN... DFSORT/ICETOOL 5
No new posts Need to add field to copybook, proble... COBOL Programming 14
Search our Forums:

Back to Top