|
View previous topic :: View next topic
|
| Author |
Message |
amitc23
New User
Joined: 05 Nov 2014
Posts: 98
Location: India
|
|
|
|
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 |
|
 |
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1432
Location: Bamberg, Germany
|
|
|
|
| What error msgs have you got? |
|
| Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1432
Location: Bamberg, Germany
|
|
|
|
| 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 |
|
|
sergeyken
Senior Member
Joined: 29 Apr 2008
Posts: 2272
Location: USA
|
|
|
|
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 |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
