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
 

 

Continuation Character

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> SYNCSORT
View previous topic :: :: View next topic  
Author Message
ballaswaroop

New User


Joined: 20 Sep 2005
Posts: 24

PostPosted: Thu Aug 25, 2016 4:46 pm    Post subject: Continuation Character
Reply with quote

Code:
//S010     EXEC  PGM=SORT                                               
//SORTIN   DD  DSN=BILLN1.TESTP.AHS.HEADER.ONE,DISP=SHR                 
//SORTOUT  DD  DSN=BILLN1.TESTP.AHS.HEADER.ONE,DISP=SHR                 
//*            DISP=(NEW,CATLG,CATLG),                                 
//*            SPACE=(CYL,(50,50),RLSE),                               
//*            DCB=*.SORTIN                                             
//SYSOUT   DD  SYSOUT=*                                                 
//SYSIN    DD *                                                         
----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
  SORT FIELDS=COPY                                                     
  OUTREC FIELDS=(1,550,C'NST_NBR,RECORD,MNTN_DATE,MNTN_TIME,TIEBRK,AIX *
               *_TIEBRK,AIX2_INST,AIX2_APPL_CODE,AIX2_ACCT_NBR,AIX2_MNT*
               *_DATE,AIX2_MNTN_TIME,AIX2_TIEBRK,REC_FLDS,REGION,TYPE,U*
               *ER_CODE_4,SVC_CODE,ORIG_CODE,FUNCTION,BATCH_FORM,INFC_C*
               *ST_SHRT,EXPIRE_DATE,BATCH_FIELD,AMT_REC_CODE,AMT_APPL_C*
               *DE,FIELD_NBR,PANEL_ID,FIELD_NAME,OLD_EDIT,NEW_EDIT,RPT_*
               *FFECT_DATE,RPT_MNTN_DATE,RPT_HIST_DATE,,RPT_MNTN_TIME,D*
               *RECT_CODE,DATE_IND,PRICE_LIST_NBR,TAX_REGION,')         
/*                                                                     
//*                                                                     

Getting the following error
SYSIN :
Code:
  SORT FIELDS=COPY                                                       
  OUTREC FIELDS=(1,550,C'NST_NBR,RECORD,MNTN_DATE,MNTN_TIME,TIEBRK,AIX *
                        *                                               
               *_TIEBRK,AIX2_INST,AIX2_APPL_CODE,AIX2_ACCT_NBR,AIX2_MNT*
               *_DATE,AIX2_MNTN_TIME,AIX2_TIEBRK,REC_FLDS,REGION,TYPE,U*
               *ER_CODE_4,SVC_CODE,ORIG_CODE,FUNCTION,BATCH_FORM,INFC_C*
               *ST_SHRT,EXPIRE_DATE,BATCH_FIELD,AMT_REC_CODE,AMT_APPL_C*
               *DE,FIELD_NBR,PANEL_ID,FIELD_NAME,OLD_EDIT,NEW_EDIT,RPT_*
               *FFECT_DATE,RPT_MNTN_DATE,RPT_HIST_DATE,,RPT_MNTN_TIME,D*
               *RECT_CODE,DATE_IND,PRICE_LIST_NBR,TAX_REGION,')         
WER813I  INSTALLATION OPTIONS IN MFX LOAD LIBRARY WILL BE USED           
WER268A  OUTREC STATEMENT  : SYNTAX ERROR                               
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000                           
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE

coded
Back to top
View user's profile Send private message

Abid Hasan

New User


Joined: 25 Mar 2013
Posts: 65
Location: India

PostPosted: Thu Aug 25, 2016 6:05 pm    Post subject:
Reply with quote

Hello,

Couple of issues here, starting with:
a. The error is a SYNCSort error and not DFSORT; notice the WER* messages.
b. The SYSIN data is starting in column 1, *SORT require a space in column 1 before a control card data can be legally passed.
c. In DFSORT, there is a limitation to the number of characters that can be passed for a constant value, I am assuming similar limitation exist for SYNCSort as well; from DFSORT messages guide, for ICE111A:

Quote:

ICE111A REFORMATTING FIELD ERROR

A repetition factor was greater than 4095 for a
separator, or a character or hex constant was longer
than 256 bytes.


A solution can be breaking down your complete string in smaller chunks, separated as "C'<your data here>',C'<your data here>',... and so on ".

Working solution, tested on DFSORT:

Code:

//S010 EXEC PGM=SORT                                                   
//SORTIN DD *                                                           
SOME RANDOM CHUNK OF DATA                                               
/*                                                                     
//SORTOUT DD SYSOUT=*                                                   
//SYSOUT DD SYSOUT=*                                                   
//SYSIN DD *                                                           
----+----1----+--                                                       
 SORT FIELDS=COPY                                                       
 OUTREC FIELDS=(1,3,C'NST_NBR,RECORD,MNTN_DATE,MNTN_TIME,TIEBRK,AIX *',
   C'*_TIEBRK,AIX2_INST,AIX2_APPL_CODE,AIX2_ACCT_NBR,AIX2_MNT*',       
   C'*_DATE,AIX2_MNTN_TIME,AIX2_TIEBRK,REC_FLDS,REGION,TYPE,U*',       
   C'*ER_CODE_4,SVC_CODE,ORIG_CODE,FUNCTION,BATCH_FORM,INFC_C*',       
   C'*ST_SHRT,EXPIRE_DATE,BATCH_FIELD,AMT_REC_CODE,AMT_APPL_C*',       
   C'*DE,FIELD_NBR,PANEL_ID,FIELD_NAME,OLD_EDIT,NEW_EDIT,RPT_*',       
   C'*FFECT_DATE,RPT_MNTN_DATE,RPT_HIST_DATE,,RPT_MNTN_TIME,D*',       
   C'*RECT_CODE,DATE_IND,PRICE_LIST_NBR,TAX_REGION,')                   
/*                                                                     


Edit: Ohh, after the text was coded, the space in column 1 became evident, so that error can be knocked off from the list.
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Thu Aug 25, 2016 6:05 pm    Post subject:
Reply with quote

Please use code tags while posting and moved to SYNCSORT
Back to top
View user's profile Send private message
ballaswaroop

New User


Joined: 20 Sep 2005
Posts: 24

PostPosted: Thu Aug 25, 2016 7:03 pm    Post subject:
Reply with quote

I am still getting the below error when I tried to split the text
SYSIN :
SORT FIELDS=COPY
OUTREC FIELDS=(1,550,C'INST_NBR,RECORD,MNTN_DATE,MNTN_TIME,TIEBRK,AIX*',
C'*FLT_INST,AIX1_OPID,AIX 1_MNTN_DATE,AIX1_MNTN_TIME,AI')
*
WER813I INSTALLATION OPTIONS IN MFX LOAD LIBRARY WILL BE USED
WER268A OUTREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7913
Location: Bellevue, IA

PostPosted: Thu Aug 25, 2016 9:03 pm    Post subject:
Reply with quote

I suspect either your comma and / or your closing parenthesis are in column 72. Rearrange your code to ensure nothing extends past column 71 and try again.
Back to top
View user's profile Send private message
Rohit Umarjikar

Senior Member


Joined: 21 Sep 2010
Posts: 1610
Location: NY,USA

PostPosted: Thu Aug 25, 2016 9:39 pm    Post subject:
Reply with quote

Abid, '*' at the end in TS post was meant for continuation but you added that as a part of string in the solution posted by you.
ballaswaroop, please use continuation as you were using before which is missing in you last post and make sure '1,550' as right.
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1715
Location: UK

PostPosted: Fri Aug 26, 2016 1:26 am    Post subject:
Reply with quote

ballaswaroop
Why, after 11 years on the forum, do you insist on not using the code tags and therefore lose any format that your cotrol cards might have. If you want help then help the helpers by using the cade tags.
Back to top
View user's profile Send private message
Abid Hasan

New User


Joined: 25 Mar 2013
Posts: 65
Location: India

PostPosted: Fri Aug 26, 2016 11:07 am    Post subject:
Reply with quote

Hello Rohit,

Agreed, post the addition of code tags it became evident; from the original post it appeared to be a part of the text hence the shared card.
Aside, TS WILL have to break the entire text into atleast two parts - if SYNCSort has the same character set limitation of DFSORT.
If (1,550) was the one causing the error, *SORT should pop-up something on the lines of: 'FIELD BEYOND MAXIMUM RECORD LENGTH' or likewise.
Since it is showing 'SYNTAX ERROR' something in the SYSIN OUTREC statement is acting up, it can be because of lack of column number or the way continuation is provided or the usage of character set. I do not have SYNCSort hence it is difficult to provide a clean solution; though it'd be great if someone who does have it can test run the working DFSORT solution and see if it helps. Another test run using the below card also ran clean; only a split of text from the original post has been done here:

Code:

000012 //SORTOUT DD SYSOUT=*                                                   
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
000013 //SYSIN DD *                                                           
000014 ----+----1----+--                                                       
000015  SORT FIELDS=COPY                                                       
000016   OUTREC FIELDS=(1,5,C'NST_NBR,RECORD,MNTN_DATE,MNTN_TIME,TIEBRK,AIX   *
000017                *_TIEBRK,AIX2_INST,AIX2_APPL_CODE,AIX2_ACCT_NBR,AIX2_MNT*
000018                *_DATE,AIX2_MNTN_TIME,AIX2_TIEBRK,REC_FLDS,REGION,TYPE,U*
000019            *ER_CODE_4,SVC_CODE,ORIG_CODE,FUNCTION,BATCH_FORM,INFC_C',  *
000020              C'*ST_SHRT,EXPIRE_DATE,BATCH_FIELD,AMT_REC_CODE,AMT_APPL_C*
000021                *DE,FIELD_NBR,PANEL_ID,FIELD_NAME,OLD_EDIT,NEW_EDIT,RPT_*
000022                *FFECT_DATE,RPT_MNTN_DATE,RPT_HIST_DATE,,RPT_MNTN_TIME,D*
000023                *RECT_CODE,DATE_IND,PRICE_LIST_NBR,TAX_REGION,')         
000024 /*                                                                     
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7234

PostPosted: Fri Aug 26, 2016 12:07 pm    Post subject: Reply to: Continuation Character
Reply with quote

Make your life easier. Don't use continuation characters. Specify each element separately and end all but the last with a comma. So much easier to change, read, understand. Only thing which should use continuations is a program, and then only if it makes the program easier.
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 -> SYNCSORT All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. DSList (3.4) cannot display Chinese c... jacobdng TSO/ISPF 4 Wed Oct 05, 2016 2:51 pm
No new posts Adding a descending character to a file Steve Ironmonger DFSORT/ICETOOL 3 Fri Jul 15, 2016 4:57 pm
No new posts Moving character data to smallint in db2 rikdeb DB2 5 Thu Jul 14, 2016 12:38 am
No new posts character setting configuration into ... sakthikumarT DB2 5 Thu Nov 05, 2015 11:37 am
No new posts unique 8 character token Pedro CLIST & REXX 9 Fri May 08, 2015 10:59 pm


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