Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Can ZOOm/ZVIEW work on Expanded lines of code(Proc) in jcl

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
reachcyrus

New User


Joined: 13 Jul 2007
Posts: 24
Location: chennai

PostPosted: Fri Jul 20, 2007 9:08 am    Post subject: Can ZOOm/ZVIEW work on Expanded lines of code(Proc) in jcl
Reply with quote

i have a jcl in which plenty of procs are expanded.i tried using the ZVIEW/ZOOM tool on the expanded lines of code(proc) . it's not working.

can the macro recognise/pic the expanded lines of code from the proc(which is in blue color).

are i need to modify the Zview tool for PROcs.

ZVIEW tool

Address ISREDIT
"MACRO"
Address ISPEXEC "CONTROL ERRORS RETURN"
Address ISPEXEC "VGET ZPCFMCN PROFILE" /* get confirm setting */
If ZPCFMCN == '/' then CONF = 'YES'
Else CONF = 'NO'
/***********************************************/
/* BEGIN PROCESSING */
/***********************************************/
"(row,col) = CURSOR"
"(data1) = LINE " row /* data1 = cursor line */
/**********************************/
/* Find start of data set name */
/**********************************/
dsnstart = Pos('DSN=',data1) /* look for DSN= */
If dsnstart = 0 then do /* no DSN = */
dsnstart = Pos('DSNAME=',data1) /* look for DSNAME= */
If dsnstart = 0 then do /* no DSN= or DSNAME= */
"CURSOR = " row col /* cursor pos */
If col < 1 then dsnstart = 1 /* needed for ZV line cmd */
Else dsnstart = col /* assume cursor on DSN */
End
Else dsnstart = dsnstart + 7 /* DSNAME= specified in JCL */
End /* if dsnstart = 0 */
Else dsnstart = dsnstart + 4 /* DSN = specified in JCL */
/**********************************/
/* Find end of data set name */
/**********************************/
dsnend = Pos(',',data1,dsnstart) /* look for comma at end of dsn */
If dsnend = 0 then do /* no comma found */
dsnend = Pos(' ',data1,dsnstart) /* look for blank to end DSN */
If dsnend = 0 then do /* no blank or comma at end */
zedsmsg = 'No end of DSN'
zedlmsg = 'The data set name is not terminated with a' ,
'space or comma.'
Address ISPEXEC "SETMSG MSG(ISRZ001)" /* msg - with alarm */
"CURSOR = " row col /* put cursor back to last position */
Exit 8
End /* if dsnend = 0 */
Else dsnend = dsnend - 1 /* DSN ends with blank */
End /* if dsnend = 0 */
Else dsnend = dsnend - 1 /* DSN ends with comma */
/**********************************/
/* VIEW the data set */
/**********************************/
dsn = Substr(data1,dsnstart,dsnend-dsnstart+1) /* extract dsn */
dsn = Strip(Translate(dsn,"","'")) /* remove quotes if used */
Address ISPEXEC "VIEW DATASET('"dsn"') CONFIRM("conf")"
If RC <> 0 then Address ISPEXEC "SETMSG MSG("ZERRMSG")"
"CURSOR = " row col /* put cursor back to last position */
Exit 0
could anyone suggest any solution?
Cheers!!
Back to top
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Fri Jul 20, 2007 11:49 am    Post subject:
Reply with quote

How the procs are expanded? What do you mean by "blue"? Are thay shown as NOTES lines?

O.
Back to top
View user's profile Send private message
reachcyrus

New User


Joined: 13 Jul 2007
Posts: 24
Location: chennai

PostPosted: Fri Jul 20, 2007 11:51 am    Post subject:
Reply with quote

They can't be edited. when you scan the jcl,they will expand.(we have a tool in rexx to expand)
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SAS Work space - B37 abend santuece1 JCL & VSAM 11 Tue Jun 19, 2018 1:03 am
No new posts Run time proc edit Niki JCL & VSAM 7 Fri Jun 08, 2018 5:42 pm
No new posts What will happen if we dont code STOP... Poha Eater COBOL Programming 4 Mon Jun 04, 2018 5:27 pm
No new posts JCL to set Return code when Time Out ... vinu78 JCL & VSAM 6 Wed May 30, 2018 11:27 am
This topic is locked: you cannot edit posts or make replies. Rexx code to find greater then symobl... Bharath Vikraman CLIST & REXX 8 Tue May 29, 2018 9:40 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us