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
 

 

Add Symbolic Literal to Syncsort Report

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
SAMOLESAM

New User


Joined: 19 May 2010
Posts: 2
Location: USA

PostPosted: Wed Sep 29, 2010 7:12 pm    Post subject: Add Symbolic Literal to Syncsort Report
Reply with quote

From JCL - notice the XXX999 literal via the PGRM symbolic.
Code:

//XXX999    EXEC BTCHRET,PGRM='XXX999'


From PROC - notice the symbolic PGRM on the F1 & F2 DD's -
notice the ELEMENT ID Header.
Code:

//SYSIN    DD *                                     
 JOINKEYS FILE=F1,                                   
           FIELDS=(001,06,A)         *RETROFITS     
 JOINKEYS FILE=F2,                                   
           FIELDS=(001,06,A)         *VANILLA SOURCE
  REFORMAT FIELDS=(F1:1,80,F2:1,80)                 
  SORT     FIELDS=COPY                               
  OUTFIL   FNAMES=OLDVNEW,NODETAIL,                 
            OUTREC=(001:081,072,                     
                    075:001,080),                   
           HEADER2=(001:'ELEMENT ID : ',             
                    050:'DATE: ',&DATE,//,           
                    001:'ORIGINAL-CODE',             
                    030:'RETROFIT-CODE'/)           
//SORTJNF1 DD DSN=RETROFIT(&PGRM),DISP=SHR           
//*                                                 
//SORTJNF2 DD DSN=VANILLA(&PGRM),DISP=SHR           
//*                                                 
//OLDVNEW  DD SYSOUT=*                               



Current Report From Sort:

Code:

********************************* TOP OF DATA ******************
ELEMENT ID :                                     DATE: 09/29/10
                                                               
ORIGINAL-CODE                RETROFIT-CODE                     
                                                               
******************************** BOTTOM OF DATA ****************



Desired Report - Notice the literal from the PGRM symbolic on the report after Element ID.

Code:

********************************* TOP OF DATA ******************
ELEMENT ID :   XXX999                            DATE: 09/29/10
                                                               
ORIGINAL-CODE                RETROFIT-CODE                     
                                                               
******************************** BOTTOM OF DATA ****************


I do realize that I could code a different step for each PGRM and hard code the literal after the element ID. However, if feasible, my desire is to have the literal pulled from the symbolic and written to the report each time the PROC step is executed.

Is it feasible to do what I desire? Please let me know as time permits.
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Wed Sep 29, 2010 7:58 pm    Post subject: Reply to: Add Symbolic Literal to Syncsort Report
Reply with quote

Easy. Use the SYMNAMES DD statement to define your symbolic values to Syncsort.
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
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SYNCSORT SEQNUM and FI fields. nartcr SYNCSORT 6 Sat Jan 21, 2017 4:02 am
No new posts Syncsort Help to group fields sudhakarraju SYNCSORT 6 Thu Dec 29, 2016 1:38 am
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 7 Fri Dec 02, 2016 9:47 am
No new posts Syncsort - Hard coded Value in output PORYES SYNCSORT 1 Thu Nov 03, 2016 9:23 am
No new posts Detailed Transaction History report f... Kyle Carroll CICS 5 Tue Oct 18, 2016 12:42 am


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