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

Resolve symbolics - other than starting chars in qualifiers


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Shrinika Rajendran

New User


Joined: 06 Jun 2013
Posts: 25
Location: India

PostPosted: Tue May 27, 2014 6:15 pm
Reply with quote

Hi,
Is there a way to resolve symbolics if its for the content other than starting characters of the 8 bytes qualifier in a DSN??

&SYM1=NEW,

1) DSN name: MY.PDS.COOL&SYM1..TEST
This is always resolved as MY.PDS.COOL.NEW.TEST

Is there a way to get "MY.PDS.COOLNEW.TEST" by passing 'NEW' thru symbolics?

Thanks
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 May 27, 2014 6:42 pm
Reply with quote

Why don't you try it? Use TYPRUN=SCAN to make sure you do not inadvertently run the job. Also, check out the PROCLIBs at your site.
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Tue May 27, 2014 6:53 pm
Reply with quote

Don't you mean "sym1=new" not "&sym1=new"? This resolves fine for me.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Tue May 27, 2014 6:57 pm
Reply with quote

works for me ....

Code:

 ****** ***************************** Top of Data ******************************
 - - -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  3 Line(s) not Displayed
 000004 //MYPROC  PROC SYM1='NEW'
 000005 //G       EXEC PGM=IEFBR14
 000006 //NEWDS     DD DISP=(NEW,CATLG),
 000007 //             DSN=ENRICO.TEST&SYM1..CNTL,
 000008 //             DCB=(RECFM=FB,LRECL=80),
 000009 //             UNIT=SYSDA,SPACE=(CYL,(1,1,1))
 000010 //        PEND
 000011 //*
 000012 //S1      EXEC MYPROC
 000013 //*
 000014 //S2      EXEC MYPROC,SYM1='OTH'
 ****** **************************** Bottom of Data ****************************


the result ....

Code:
  3 //S1      EXEC MYPROC
  4 ++MYPROC  PROC SYM1='NEW'
  5 ++G       EXEC PGM=IEFBR14
  6 ++NEWDS     DD DISP=(NEW,CATLG),
    ++             DSN=ENRICO.TEST&SYM1..CNTL,
    ++             DCB=(RECFM=FB,LRECL=80),
    ++             UNIT=SYSDA,SPACE=(CYL,(1,1,1))
    //*
    IEFC653I SUBSTITUTION JCL - DISP=(NEW,CATLG),DSN=ENRICO.TESTNEW.CNTL,... ...
  7 //S2      EXEC MYPROC,SYM1='OTH'
  8 ++MYPROC  PROC SYM1='NEW'
  9 ++G       EXEC PGM=IEFBR14
 10 ++NEWDS     DD DISP=(NEW,CATLG),
    ++             DSN=ENRICO.TEST&SYM1..CNTL,
    ++             DCB=(RECFM=FB,LRECL=80),
    ++             UNIT=SYSDA,SPACE=(CYL,(1,1,1))
    IEFC653I SUBSTITUTION JCL - DISP=(NEW,CATLG),DSN=ENRICO.TESTOTH.CNTL,... ...
Back to top
View user's profile Send private message
Shrinika Rajendran

New User


Joined: 06 Jun 2013
Posts: 25
Location: India

PostPosted: Tue May 27, 2014 7:53 pm
Reply with quote

Nic; Terry; Enrico;
Yes. It is "sym1=new" and not "&sym1=new".

It does work for me now. I was using 'peek' option to view the dataset which is our internal REXX tool to edit, view or browse a dataset on the fly without having to go thru 3.4 option, which would show up the datset name after resolving the symbolics even if the dataset is not catalogued. It resolved the dataset name incorrectly that I got this doubt.

Thanks all.
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

 


Similar Topics
Topic Forum Replies
No new posts Need help to resolve a hard edit COBOL Programming 8
This topic is locked: you cannot edit posts or make replies. Need help to resolve a hard edit COBOL Programming 4
No new posts list pds members name starting with xyz CLIST & REXX 11
No new posts Starting a remote transaction using a... CICS 0
No new posts REXX tool to extract all files starti... CLIST & REXX 4
Search our Forums:

Back to Top