|
View previous topic :: View next topic
|
| Author |
Message |
krunalbafna
Warnings : 1
Active User
Joined: 18 Jan 2010
Posts: 143
Location: Pune
|
|
|
|
Hi,
Following is my current flow:
1. A map is send to user.
2. The user enters the details: a. DSN name, b. Option to select the name of client. c. Option to perform activity on DSN name.
3. An program is invoked to check if all the data enters is correct or not.
4. If all if fine, an JCL is submitted to create the Trailer record for the corresponding file.
5. When the program step runs fine and SMTPBTCH proc is invoked to update the user. An email attachment is also sent. the attachment has the records and the trailer record.
My query:
Once the PROGRAM step runs fine, an email needs to be sent. The email content should also have the file name. There are 16 clients and user may provide any DSN name. Is there any facility where I can update my JOB card where an DSN name is updated everytime.
following may be the content of card:
THE INPUT FILE PROVIDED IS PROCESSED SUCCESFFULY.
KINDLY CHECK YOUR INPUT FILE FOR THE UPDATED Trailer RECORD DETAILS.
DSN Name: (************************************). This Space is entered once the Program step runs fine?
Regards,
Krunal bafna |
|
| Back to top |
|
 |
krunalbafna
Warnings : 1
Active User
Joined: 18 Jan 2010
Posts: 143
Location: Pune
|
|
|
|
Hello:
SORT FIELDS=COPY
INREC FIELDS=(1:7,3,4:56,4,5:C'LITERAL')
above part will include Literal in position 5 of output file.
Is it possible to use Symbolic override to have the dsn file name in the output file similar to :
INFILE = T.KRUNAL.YOUR.INFILE
SORT FIELDS=COPY
INREC FIELDS=(1:C'&INFILE')
the output file shld have
T.KRUNAL.YOUR.INFILE
Kindly suggest some verb to include in the above fashion.
Regards,
Krunal |
|
| Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK
|
|
|
|
| READ |
|
| Back to top |
|
|
krunalbafna
Warnings : 1
Active User
Joined: 18 Jan 2010
Posts: 143
Location: Pune
|
|
|
|
Hello Nic,
Within JCL how it is possible.
U said Read? I am not able to get u?
Regards,
Krunal |
|
| Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
| If you are looking for a Sort solution, please tell us which product you are using so that the topic can be moved to the correct forum. |
|
| Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK
|
|
|
|
Read - the forum for similar topics
Read - the sort manual for your sort product
Read - the JCL manual - I am not 100% sure what you are doing so I do not know if you can do it with JCL. Certainly you cannot do it with JCL alone - you need to execute some program(s). |
|
| Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland
|
|
|
|
Other than the map being sent, I can't see the relevance to CICS.
When submitting the JCL, either concatenate the required line
DSN Name: (************************************).
or add a step to IEBGENER the line to a temp dataset that is then concatenated to the e-mail input. The required dsn is available to the program submitting the JCL.
I'd suggest you review your terminology
| Quote: |
| Is there any facility where I can update my JOB card where an DSN name is updated everytime. |
From the rest of your description, you are not trying to update a JOB card - you are trying to provide input to a job.
Garry. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
the question is clear as mud !
| Quote: |
| If all if fine, an JCL is submitted to create the Trailer record for the corresponding file. |
from Your wording looks like You/the Program is generating the JCl
nobody prevents You from building the JCL changing things the way You like!
( the dataset name for example ) |
|
| Back to top |
|
|
krunalbafna
Warnings : 1
Active User
Joined: 18 Jan 2010
Posts: 143
Location: Pune
|
|
|
|
Hello everyone,
I found one method:
| Code: |
//KRUN9050 EXEC PGM=SORT,
// PARM='JP1"T.CA.Krunal.file"'
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=krunal.infile.BDT,DISP=SHR
//SORTOUT DD DSN=Krunal.outfile,
// DISP=(NEW,CATLG),
// STORCLAS=SCTSO,
// MGMTCLAS=MCTSO,
// SPACE=(TRK,(75,75),RLSE),
// DCB=(RECFM=FB,LRECL=219,BLKSIZE=0)
//*
//SYSIN DD *
OPTION COPY
OUTFIL NODETAIL,
TRAILER1=('FILE NAME-',X,JP1)
/* |
But i am getting following error:
| Code: |
WER131I PARM FIELD ERROR - JP1"T.CA
WER268A OUTFIL STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
|
Kindly suggest if above method is right how to correct the error. |
|
| Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland
|
|
|
|
From what I understand, JP1 is a function supported by IBM's DFSORT, not SYNCSORT.
Garry. |
|
| Back to top |
|
|
krunalbafna
Warnings : 1
Active User
Joined: 18 Jan 2010
Posts: 143
Location: Pune
|
|
|
|
Hello Garry,
I am aware that it can be used by DFSORT. Does my JCL is having error or what correction i need to do for the same. |
|
| Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland
|
|
|
|
You have WER* error messages which are from SYNCSORT not DFSORT  so you either need to switch to DFSORT or use another method.
Garry. |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
| Garry Carroll wrote: |
| SYNCSORT not DFSORT |
Well, one of my collegue said, SyncSort is nothing but an improved version of DFSort. I was alomost fainted because he even argued to prove his point!  |
|
| Back to top |
|
|
krunalbafna
Warnings : 1
Active User
Joined: 18 Jan 2010
Posts: 143
Location: Pune
|
|
|
|
Hello,
I tried with DFSORT and ICEMAN, but still I am getting same error.
Is there an working example for JPN function using INREC or OUTREC to include value that can be passed using parm.
Regards,
Krunal |
|
| Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
Hi,
you need to show your JCL and ALL the output from your run.
If you say the error is the same then you are not using DFSORT else the messages would be different.
Gerry |
|
| Back to top |
|
|
krunalbafna
Warnings : 1
Active User
Joined: 18 Jan 2010
Posts: 143
Location: Pune
|
|
|
|
Heloo GCICCHET,
I have already put my code,
Again I am placing the JCL code:
| Code: |
// SET DSNOUT='PROD.DATA.OUTPUT1'
// EXEC ERT
//STEP11 EXEC PGM=ICEMAN,
// PARM='JP1"&DSNOUT"'
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=T.CAOS.GRTAMR.DT021512.BDT,DISP=SHR
//SORTOUT DD DSN=T.CAOS.OKFILE,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(TRK,(5,5)),RECFM=FB,LRECL=219
//TRL DD DSN=T.CAOS.TRLFILE,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(TRK,(5,5)),RECFM=FB,LRECL=219
//SYSIN DD *
SORT FIELDS=(1,20,CH,A)
SUM FIELDS=NONE
OUTFIL FNAMES=SORTOUT
OUTFIL FNAMES=TRL,
REMOVECC,NODETAIL,
TRAILER1=(JP1,X,COUNT=(M11,LENGTH=9),X,DATENS=(4MD))
/*
|
This is one way I tried yesterday. |
|
| Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
Hi,
you need to provide the output from your last run.
Gerry |
|
| Back to top |
|
|
krunalbafna
Warnings : 1
Active User
Joined: 18 Jan 2010
Posts: 143
Location: Pune
|
|
|
|
Following error i am getting
| Code: |
SYNCSORT LICENSED FOR CPU SERIAL NUMBER 31CA6, MODEL 2817 602
SYSIN :
SORT FIELDS=(1,20,CH,A)
SUM FIELDS=NONE
OUTFIL FNAMES=SORTOUT
OUTFIL FNAMES=TRL,
REMOVECC,NODETAIL,
TRAILER1=(JP1,X,COUNT=(M11,LENGTH=9),X,DATENS=(4MD))
*
WER131I PARM FIELD ERROR - JP1"PROD
WER268A OUTFIL STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE |
|
|
| Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK
|
|
|
|
| And that output is from SNCSORT as you can tell because it mentions SYNCSORT in various places and has SYNCSORT messages (WER*). I would suggest that you look at things more carefully before saying things like 'I tried with DFSORT and ICEMAN'. |
|
| Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
Hi,
I'm pretty sure that SYNCSORT does not support SET symbols.
Gerry |
|
| Back to top |
|
|
krunalbafna
Warnings : 1
Active User
Joined: 18 Jan 2010
Posts: 143
Location: Pune
|
|
|
|
| Even without SET i am unbale to use it SIR. |
|
| Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
Hi,
I may not have been clear enough, SYNCSORT does not have the facility to accept symbols from a parm.
Gerry |
|
| Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland
|
|
|
|
| Garry Carroll wrote: |
From what I understand, JP1 is a function supported by IBM's DFSORT, not SYNCSORT.
Garry. |
| Garry Carroll wrote: |
| You have WER* error messages which are from SYNCSORT not DFSORT so you either need to switch to DFSORT or use another method. |
| Nic Clouston wrote: |
| And that output is from SNCSORT as you can tell because it mentions SYNCSORT in various places and has SYNCSORT messages (WER*). I would suggest that you look at things more carefully before saying things like 'I tried with DFSORT and ICEMAN'. |
| gcicchet wrote: |
Hi,
I'm pretty sure that SYNCSORT does not support SET symbols.
Gerry |
| gcicchet wrote: |
Hi,
I may not have been clear enough, SYNCSORT does not have the facility to accept symbols from a parm.
Gerry |
How many times does the OP need to be told before realising that SYNCSORT and DFSORT are not the same product and the the local na mes DFSORT and ICEMAN are pointing to SyncSort - which doesn't have the feature....?
Garry. |
|
| Back to top |
|
|
elango_K
New User
Joined: 18 Aug 2011
Posts: 44
Location: India
|
|
|
|
| Quote: |
Is there an working example for JPN function using INREC or OUTREC to include value that can be passed using parm.
|
A mere search could have got you many examples.
here is one:
ibmmainframes.com/viewtopic.php?t=57587[/url] |
|
| Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
| That is for DFSORT. TS has Syncsort, and continues to hope for a DFSORT solution. Please don't encourage them, |
|
| Back to top |
|
|
|
|
