Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Dyanmic building of control card

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

New User


Joined: 13 Dec 2006
Posts: 73
Location: Hyderabad

PostPosted: Thu Sep 13, 2007 8:55 pm    Post subject: Dyanmic building of control card
Reply with quote

Hi ,
while building dynamic control card i am getting the following error.

can any body help on this?

my step:

Code:

//TOOLIN   DD    *                                 
 COPY FROM(IN1) USING(CTL1)                         
 COPY FROM(INPUT) USING(CTL2)                       
/*                                                 
//CTL1CNTL DD *                                     
   OUTFIL FNAMES=T1,                               
   BUILD=(3:C'AND,18,26,CH,EQ,C''',21:1,26,47:C'', 
   49:C')),OUTREC=(1,16)',64:17X)                   
/*                                                 
//CTL2CNTL DD *                                     
   OUTFIL FNAMES=OUT1,INCLUDE=(17,1,CH,EQ,C'2',     
   AND,(16,1,CH,EQ,C'A',OR,(16,1,CH,EQ,C'D',       
/*                                                 
//    DD DSN=*.T1,VOL=REF=*.T1,DISP=(OLD,PASS)     


i am getting the error while writing into T1 file.

Code:

error:
BUILD=(3:C'AND,18,26,CH,EQ,C''',21:1,26,47:C'',     
                                              $     
REFORORMATTING FIELD ERROR                               
49:C')),OUTREC=(1,16))',64:17X)                     
$         


Expected output for ctl2 is:

Code:

  OUTFIL FNAMES=OUT1,INCLUDE=(17,1,CH,EQ,C'2',                 
  AND,(16,1,CH,EQ,C'A',OR,(16,1,CH,EQ,C'D',                     
  AND,18,26,CH,EQ, c'2007-09-12-03.00.00.000000')),OUTREC=(1,16))
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 Sep 13, 2007 9:24 pm    Post subject:
Reply with quote

You have several problems with the syntax including 47:C'' instead of 47:C''''. Your expected CTL2CNTL syntax is also invalid.

Here are the correct CTL1CNTL and CTL2CNTL statements:

Code:

//CTL1CNTL DD *                               
   OUTFIL FNAMES=T1,                           
   BUILD=(3:C'AND,18,26,CH,EQ,C''',1,26,       
    C'''))),OUTREC=(1,16)',80:X)               
/*     
//CTL2CNTL DD *                                 
   OUTFIL FNAMES=OUT1,INCLUDE=(17,1,CH,EQ,C'2',
   AND,(16,1,CH,EQ,C'A',OR,(16,1,CH,EQ,C'D',   
/*                                             


This will create:

Code:

   OUTFIL FNAMES=OUT1,INCLUDE=(17,1,CH,EQ,C'2',                   
   AND,(16,1,CH,EQ,C'A',OR,(16,1,CH,EQ,C'D',                     
  AND,18,26,CH,EQ,C'2007-09-12-03.00.00.000000'))),OUTREC=(1,16) 
Back to top
View user's profile Send private message
avaneendra_linga

New User


Joined: 13 Dec 2006
Posts: 73
Location: Hyderabad

PostPosted: Fri Sep 14, 2007 9:55 am    Post subject:
Reply with quote

Thx a lot Frank....it was working now......
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 Control M - Predecessor/successor of ... SRIDEVI TANTRY Compuware & Other Tools 6 Sun May 06, 2018 10:57 am
No new posts Need better approach to create a sort... Vamshi Veludandi DFSORT/ICETOOL 8 Thu Mar 08, 2018 5:59 pm
No new posts SORT CARD ram_vizag DFSORT/ICETOOL 13 Thu Mar 01, 2018 4:55 am
No new posts can we hardcode a value in db2 load c... ram_vizag DB2 2 Wed Feb 28, 2018 11:04 pm
No new posts How to control Panel Attributes throu... rsshanmugam CLIST & REXX 3 Mon Feb 26, 2018 9:51 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us