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

To update the CARD.


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
krunalbafna
Warnings : 1

Active User


Joined: 18 Jan 2010
Posts: 143
Location: Pune

PostPosted: Mon Feb 20, 2012 10:24 am
Reply with quote

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
View user's profile Send private message
krunalbafna
Warnings : 1

Active User


Joined: 18 Jan 2010
Posts: 143
Location: Pune

PostPosted: Mon Feb 20, 2012 5:56 pm
Reply with quote

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
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Mon Feb 20, 2012 6:26 pm
Reply with quote

READ
Back to top
View user's profile Send private message
krunalbafna
Warnings : 1

Active User


Joined: 18 Jan 2010
Posts: 143
Location: Pune

PostPosted: Mon Feb 20, 2012 6:51 pm
Reply with quote

Hello Nic,
Within JCL how it is possible.
U said Read? I am not able to get u?

Regards,
Krunal
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Mon Feb 20, 2012 9:02 pm
Reply with quote

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
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Tue Feb 21, 2012 12:39 am
Reply with quote

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
View user's profile Send private message
Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1175
Location: Dublin, Ireland

PostPosted: Tue Feb 21, 2012 12:56 pm
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10833
Location: italy

PostPosted: Tue Feb 21, 2012 2:03 pm
Reply with quote

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
View user's profile Send private message
krunalbafna
Warnings : 1

Active User


Joined: 18 Jan 2010
Posts: 143
Location: Pune

PostPosted: Tue Feb 21, 2012 3:35 pm
Reply with quote

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
View user's profile Send private message
Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1175
Location: Dublin, Ireland

PostPosted: Tue Feb 21, 2012 3:52 pm
Reply with quote

From what I understand, JP1 is a function supported by IBM's DFSORT, not SYNCSORT.

Garry.
Back to top
View user's profile Send private message
krunalbafna
Warnings : 1

Active User


Joined: 18 Jan 2010
Posts: 143
Location: Pune

PostPosted: Tue Feb 21, 2012 4:17 pm
Reply with quote

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
View user's profile Send private message
Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1175
Location: Dublin, Ireland

PostPosted: Tue Feb 21, 2012 6:18 pm
Reply with quote

You have WER* error messages which are from SYNCSORT not DFSORT icon_rolleyes.gif so you either need to switch to DFSORT or use another method.

Garry.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Tue Feb 21, 2012 6:44 pm
Reply with quote

Garry Carroll wrote:
SYNCSORT not DFSORT icon_rolleyes.gif
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! icon_eek.gif
Back to top
View user's profile Send private message
krunalbafna
Warnings : 1

Active User


Joined: 18 Jan 2010
Posts: 143
Location: Pune

PostPosted: Wed Feb 22, 2012 9:09 am
Reply with quote

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
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Wed Feb 22, 2012 9:21 am
Reply with quote

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
View user's profile Send private message
krunalbafna
Warnings : 1

Active User


Joined: 18 Jan 2010
Posts: 143
Location: Pune

PostPosted: Wed Feb 22, 2012 9:22 am
Reply with quote

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
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Wed Feb 22, 2012 9:27 am
Reply with quote

Hi,

you need to provide the output from your last run.


Gerry
Back to top
View user's profile Send private message
krunalbafna
Warnings : 1

Active User


Joined: 18 Jan 2010
Posts: 143
Location: Pune

PostPosted: Wed Feb 22, 2012 11:28 am
Reply with quote

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
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Wed Feb 22, 2012 11:36 am
Reply with quote

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
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Wed Feb 22, 2012 11:41 am
Reply with quote

Hi,

I'm pretty sure that SYNCSORT does not support SET symbols.



Gerry
Back to top
View user's profile Send private message
krunalbafna
Warnings : 1

Active User


Joined: 18 Jan 2010
Posts: 143
Location: Pune

PostPosted: Wed Feb 22, 2012 11:54 am
Reply with quote

Even without SET i am unbale to use it SIR.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Thu Feb 23, 2012 2:57 am
Reply with quote

Hi,

I may not have been clear enough, SYNCSORT does not have the facility to accept symbols from a parm.



Gerry
Back to top
View user's profile Send private message
Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1175
Location: Dublin, Ireland

PostPosted: Thu Feb 23, 2012 12:55 pm
Reply with quote

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
View user's profile Send private message
elango_K

New User


Joined: 18 Aug 2011
Posts: 44
Location: India

PostPosted: Thu Feb 23, 2012 4:00 pm
Reply with quote

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
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Thu Feb 23, 2012 4:13 pm
Reply with quote

That is for DFSORT. TS has Syncsort, and continues to hope for a DFSORT solution. Please don't encourage them,
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 -> JCL & VSAM Goto page 1, 2  Next

 


Similar Topics
Topic Forum Replies
No new posts Generate output lines (SYSIN card for... DFSORT/ICETOOL 4
No new posts Need suggestion on a sort card DFSORT/ICETOOL 10
No new posts Want to mask Middle 8 Digits of Debit... COBOL Programming 3
No new posts Read a flat file and update DB2 table JCL & VSAM 2
No new posts how to update an ISR appl var from an... TSO/ISPF 8
Search our Forums:

Back to Top