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
 

 

To update the CARD.
Goto page 1, 2  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: To update the CARD.
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    Post subject:
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: 1712
Location: UK

PostPosted: Mon Feb 20, 2012 6:26 pm    Post subject:
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    Post subject:
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

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Mon Feb 20, 2012 9:02 pm    Post subject: Reply to: To update the CARD.
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: 1712
Location: UK

PostPosted: Tue Feb 21, 2012 12:39 am    Post subject:
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

Active Member


Joined: 08 May 2006
Posts: 988
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Tue Feb 21, 2012 12:56 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Tue Feb 21, 2012 2:03 pm    Post subject: Reply to: To update the CARD.
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    Post subject:
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

Active Member


Joined: 08 May 2006
Posts: 988
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Tue Feb 21, 2012 3:52 pm    Post subject:
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    Post subject:
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

Active Member


Joined: 08 May 2006
Posts: 988
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Tue Feb 21, 2012 6:18 pm    Post subject:
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

Senior Member


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

PostPosted: Tue Feb 21, 2012 6:44 pm    Post subject:
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    Post subject:
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: 1703
Location: Australia

PostPosted: Wed Feb 22, 2012 9:21 am    Post subject:
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    Post subject:
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: 1703
Location: Australia

PostPosted: Wed Feb 22, 2012 9:27 am    Post subject:
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    Post subject:
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: 1712
Location: UK

PostPosted: Wed Feb 22, 2012 11:36 am    Post subject:
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: 1703
Location: Australia

PostPosted: Wed Feb 22, 2012 11:41 am    Post subject:
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
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Goto page 1, 2  Next
Page 1 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts -913/-911 Deadlock during UPDATE stat... NoSleep319 DB2 5 Fri Nov 18, 2016 12:37 am
No new posts How to update a portion of text in a ... Bill Woodger DFSORT/ICETOOL 25 Wed Nov 09, 2016 9:41 pm
No new posts Updating Cursor row withour using FOR... chandan.inst DB2 15 Tue Nov 08, 2016 11:17 am
This topic is locked: you cannot edit posts or make replies. How to use 2 input files in control c... Gunapala CN DFSORT/ICETOOL 23 Thu Oct 13, 2016 3:42 pm
This topic is locked: you cannot edit posts or make replies. Sort card to replace text using cross... Susanta SYNCSORT 32 Tue Sep 13, 2016 4:17 pm


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