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

Syncsort help
IBM Mainframe Forums -> SYNCSORT
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
amitc23

New User


Joined: 05 Nov 2014
Posts: 96
Location: India
PostPosted: Tue Nov 12, 2024 9:10 am
 Reply with quote
Hello Friends
I am trying to create a FTP record with help of SYNCSORT. I am using SYNCSORT in a PROC and calling from job.
I have following code in SYNCSORT

Job:
// SET HLQIN=MPSEIS
// SET HLQOT=TPSEIS
// SET JOBID=EI2TR31D
// SET APPTYP=CNSLD
// SET TRPTOK=RAFPCOABCDEFGH
// SET TRPMOB=RAFPCOABCDEFGH


PROC:
Code:

//S002SORT EXEC PGM=SYNCSORT                                           
//SYSOUT   DD  SYSOUT=*                                                 
//SYSUDUMP DD  SYSOUT=*                                                 
//SORTIN   DD  *,SYMBOLS=CNVTSYS                                       
fSENDSITE                                                               
fcd /MYSITE-42717/CONFIRMS                                         
fBIN                                                                   
fPUT '&HLQOT..XXX.&JOBID..&APPTYP..TOKEN'       &TRPTOK.mmddyyHHMMSS.tok
fPUT '&HLQOT..XXX.&JOBID..&APPTYP..AFP.MOBIUS'  &TRPMOB.mmddyyHHMMSS.afp
fQUIT                                                                   
//SORTOF1  DD  DSN=&HLQOT..XXX.&JOBID..&APPTYP..SENDFTP,               
//             DISP=(NEW,CATLG,DELETE),                                 
//             UNIT=TCSGDA,SPACE=(CYL,(50,50),RLSE),                   
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)                       
//SYSIN    DD *                                                         
 INREC IFTHEN=(WHEN=(002,3,CH,EQ,C'PUT'),
               OVERLAY=(2000:DATE1),HIT=NEXT),             
   IFTHEN=(WHEN=(002,3,CH,EQ,C'PUT'),OVERLAY=(2010:TIME1)) 
 SORT FIELDS=COPY                                           
 OUTFIL FILES=1,                                           
    INCLUDE=(1,1,CH,EQ,C'f'),                               
         OUTREC=(002:0002,61,                               
                 063:2004,4,                               
                 067:2002,2,                               
                 069:2010,6,                               
                 075:69,4,                                 
                 080:X)                                     
/*                                                                                         


it was running fine in Production but that had following parameters
// SET TRPTOK=RAFPCO
// SET TRPMOB=RAFPCO

I increased length of these parameters and it stopped working.

The original card with which it was running fine is
Code:

OUTFIL FILES=1,                 
   INCLUDE=(1,1,CH,EQ,C'f'),     
      OUTREC=(002:0002,55,       
              057:2004,4,       
              061:2002,2,       
              063:2010,6,       
              069:69,4,         
              080:X)             
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1329
Location: Bamberg, Germany
PostPosted: Tue Nov 12, 2024 11:18 am
 Reply with quote
What error msgs have you got?
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1329
Location: Bamberg, Germany
PostPosted: Tue Nov 12, 2024 11:47 am
 Reply with quote
Code:
//WHATEVER EXEC PGM=SORT                                               
//SYMNAMES DD *                                                         
mmddyyhhmmss,S'&LMON.&LDAY.&LYR2.&LHHMMSS.'                             
/*                                                                     
//SORTIN   DD *,SYMBOLS=JCLONLY                                         
fSENDSITE                                                               
fcd /MYSITE-42717/CONFIRMS                                             
fBIN                                                                   
fPUT '&HLQOT..XXX.&JOBID..&APPTYP..TOKEN'       &TRPTOK.mmddyyHHMMSS.tok
fPUT '&HLQOT..XXX.&JOBID..&APPTYP..AFP.MOBIUS'  &TRPMOB.mmddyyHHMMSS.afp
fQUIT                                                                   
/*                                                                     
//SYSOUT   DD SYSOUT=*                                                 
//SORTOUT  DD SYSOUT=*                                                 
//SYSIN    DD *                                                         
  OPTION COPY                                                           
  INREC IFTHEN=(WHEN=(2,3,CH,EQ,C'PUT'),                               
    FINDREP=(INOUT=(C'mmddyyHHMMSS',mmddyyhhmmss),DO=1))                     
  OUTREC BUILD=(2,79,X)                                                 
  END                                                                   
/*


Code:
********************************* Top of Data **********************************
SENDSITE                                                                       
cd /MYSITE-42717/CONFIRMS                                                       
BIN                                                                             
PUT 'TPSEIS.XXX.EI2TR31D.CNSLD.TOKEN'          RAFPCOABCDEFGH111224071850.tok   
PUT 'TPSEIS.XXX.EI2TR31D.CNSLD.AFP.MOBIUS'     RAFPCOABCDEFGH111224071850.afp   
QUIT                                                                           
******************************** Bottom of Data ********************************
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 2127
Location: USA
PostPosted: Wed Nov 13, 2024 1:59 am
 Reply with quote
When the generated statement potentially can exceed the limit of 72 (or 80) characters, it makes sense to split it from the very beginning into two or more lines guaranteed to be shorter than this limit:

Code:
                                                               
fPUT '&HLQOT..XXX.&JOBID..&APPTYP..TOKEN' -     
     &TRPTOK.mmddyyHHMMSS.tok       
                                                 
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 -> SYNCSORT

 

Similar Topics
Topic Forum Replies
No new posts SYNCSORT-DB2 interface SYNCSORT 0
No new posts Compare only first records of the fil... SYNCSORT 7
No new posts Count Records with a crietaria in a f... DFSORT/ICETOOL 5
No new posts DFSORT/SYNCSORT/ICETOOL JCL & VSAM 8
No new posts Syncsort "Y2C" Function SYNCSORT 1
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us