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
 

 

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 PA02 - Programmtically control attent... dodithegreat IMS DB/DC 1 Thu Apr 06, 2017 8:33 pm
No new posts Need help in building a logic Benchwarmer All Other Mainframe Topics 4 Wed Feb 22, 2017 2:49 am
No new posts Sort Card to Remove Duplicate records... raj4neo SYNCSORT 2 Wed Jan 25, 2017 4:44 am
This topic is locked: you cannot edit posts or make replies. How to use 2 input files in control c... Gunapala CN DFSORT/ICETOOL 23 Thu Oct 13, 2016 3:42 pm
This topic is locked: you cannot edit posts or make replies. Sort card to replace text using cross... Susanta SYNCSORT 32 Tue Sep 13, 2016 4:17 pm


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