MVSFORUMS.com:: View topic - REXX code for putting displays MVSFORUMS.com A Community of and for MVS Professionals ->:: Author Message Beginner Joined: 29 Jun 2004 Posts: 11 Topics: 8 Location: Bangalore Posted: Thu Jul 06, 2006 8:23 am Post subject: REXX code for putting displays Friends, My requirement is like this. I want to display the procedure names in all procedures of a cobol program so that it would be easy to track the flow. I want to do this by a REXX program. I want to place the command TSO putdisp in the command line. When I give this command REXX program should be called. Does anybody have any REXX script with similar function. _________________ Regards, Vishwakiran Advanced Joined: 03 Dec 2002 Posts: 579 Topics: 1 Location: Iowa, USA Posted: Thu Jul 06, 2006 11:22 am Post subject: How will you identify procedure names from data area names?
Feb 13, 2009 There is the free VALJCL tool and i saw the link for the REXX code on the IBM. /* STANDARD OF JCL CODING FOLLOWED. SAY ' REXX TOOL TO CHECK JCL SYNTAX & CODING. Rexx Tool To Check Coding Standards. Is following the set of coding standards set prior. Pascal PHP Python SQL. DB Backup Tool 1. PHP, Python, PHP, Perl und Tcl/Tk sind weit verbreitete Scripting Languages. Promoting the use and understanding of the Rexx programming language. Display source data or listings. Twin usb vibration gamepad driver windows 7 64 bit. Time...: 10:12. Create or change source data. Terminal.: 3278. 3 Utilities Perform utility functions.
![Rexx Tool To Check Coding Standards For Php Rexx Tool To Check Coding Standards For Php](https://image.slidesharecdn.com/01-170127185337/95/what-i-wish-i-knew-before-i-started-coding-14-638.jpg?cb=1485543270)
Do you have a standard name format? Will you need to deduce the names based on PERFORM syntax, etc.? _________________ Regards, Bill Dennis Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity. Beginner Joined: 22 Feb 2003 Posts: 74 Topics: 1 Posted: Thu Jul 06, 2006 12:58 pm Post subject: Try this link: Following link would also be helpful: Beginner Joined: 21 Sep 2004 Posts: 140 Topics: 14 Location: Chennai, India Posted: Fri Jul 07, 2006 7:43 am Post subject: Try this Out and let me know you face any problem// good chances are there for Cut and Paste Mistakes Code: ADDRESS ISREDIT 'MACRO (SHIVA) NOPROCESS' '(CurLoca) = LINENUM.ZCSR' IF RC 0 ) '(HERE) = LINENUM.ZCSR' '(dline) = LINE.ZCSR' PARSE VAR dline 8 COBLINE. PROC = (ZCSR + 1) 'LABEL' PROC '=.PRO' dline = '*TRACE DISPLAY ' COBLINE '.' HERE = HERE + 1 'LINE_AFTER 'HERE' = DATALINE (dline)' IF FIND_RC = 0 THEN DO 'FIND ' EXIT.' 8 50' FIND_RC = RC IF FIND_RC = 0 THEN DO '(HERE) = LINENUM.ZCSR' '(dline) = LINE.ZCSR' PARSE VAR dline 8 COBLINE.