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
 

 

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 Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm


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