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

Option for tracking code during compiling


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Fri Jun 11, 2010 3:36 pm
Reply with quote

Then it is probable that the REXX macro code is NOT in a library concatenated to either SYSPROC or SYSEXEC.
Back to top
View user's profile Send private message
karz

New User


Joined: 04 Feb 2010
Posts: 39
Location: Mumbai

PostPosted: Fri Jun 11, 2010 3:39 pm
Reply with quote

if that is the case then "Invalid Command" should be coming.. i tried another simple rexx of adding two numbers and on the command prompt typed TSO Rexxname and it is workign fine..dont know why the ADDDISP rexx is not working for me
Back to top
View user's profile Send private message
karz

New User


Joined: 04 Feb 2010
Posts: 39
Location: Mumbai

PostPosted: Fri Jun 11, 2010 3:51 pm
Reply with quote

Guys...somethign got working now...now i got display after IDENTIFICATION SECTION but then got the below error...

Command in error . : LINE_AFTER .ZCSR = 'DISPLAY 'DISPLAY 'IDENTIFICATION

Invalid parameter
Extraneous or invalid parameter was specified for LINE_AFTER command.

Error message ID . : ISRE181

Last return code . : 20

Macro executing . : ADDDISP

Press ENTER key to terminate the macro.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Fri Jun 11, 2010 3:53 pm
Reply with quote

So, what is changed from your previous run to last execution?
Back to top
View user's profile Send private message
karz

New User


Joined: 04 Feb 2010
Posts: 39
Location: Mumbai

PostPosted: Fri Jun 11, 2010 3:55 pm
Reply with quote

Successs... but not entirely... Got all the displays at the PARA...but still the above error persists and also after running the rexx my IDENTIFiCATIOn DIVISION Looks like this

IDENTIFICATION DIVISION.
DISPLAY 'IDENTIFICATION DIVISION'
DISPLAY 'IDENTIFICATION DIVISION'
DISPLAY 'IDENTIFICATION DIVISION'
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Fri Jun 11, 2010 3:57 pm
Reply with quote

If you've multiple DISPLAYs for Identification division, that means You've run the macro "ADDDISP" multiple times - each run will add one DISPLAY line unless you delete using other macro posted in the thread earlier.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Fri Jun 11, 2010 4:09 pm
Reply with quote

One sec, with the macro you are using you won't get DISPLAY line added for IDENTIFICTION DIVISION, it'll add DISPLAY only for paragraph names! I'm confused! icon_confused.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Fri Jun 11, 2010 4:10 pm
Reply with quote

the topic is going down the sink! waste of time for everybody

I wonder if it would be better to lock it or just delete it icon_evil.gif
Back to top
View user's profile Send private message
karz

New User


Joined: 04 Feb 2010
Posts: 39
Location: Mumbai

PostPosted: Fri Jun 11, 2010 4:16 pm
Reply with quote

Well, another observation... when i did NUM ON STD COB...i got displays like this

IDENTIFICATION DIVISION.
DISPLAY 'IDENTIFICATION DIVISION'
PROGRAM-ID. QQQQQQQ.
DISPLAY 'PROGRAM-ID'


but when i did NUM OFF and ran the macro...i got displays only at the start of the para....and its working fine now...

Thanks for all your support
Back to top
View user's profile Send private message
karz

New User


Joined: 04 Feb 2010
Posts: 39
Location: Mumbai

PostPosted: Fri Jun 11, 2010 4:27 pm
Reply with quote

Guys, thanks for your support, for new comers i would say...this helped me a lot..

TSO rexxname doesnot work...as this was an EDIT macro...we just need to Put REXXname after opening the member and doing NUMOFF...
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Fri Jun 11, 2010 4:32 pm
Reply with quote

Quote:
we just need to Put REXXname after opening the member and doing NUMOFF


general consideration on the code/jcl snippets posted
the samples posted are just that... samples that supposedly work in the environment in which they were developed
( most often quick and dirty, no error checking, untold assumptions )

see the NUMBER OFF/ON issue

it is the responsibility of the <user> of the sample to understand properly the code posted
and verify/understand the untold assumptions
Back to top
View user's profile Send private message
karz

New User


Joined: 04 Feb 2010
Posts: 39
Location: Mumbai

PostPosted: Sat Jun 12, 2010 11:28 am
Reply with quote

Some old modules have the para names starting from 9 and 10th position also. This rexx doesnot add the display for such modules... What modification do we need to do to the rexx for such a scenario?
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Sat Jun 12, 2010 11:39 am
Reply with quote

Hello,

Modify the code to accomodate all of the possible conditions. . .
Back to top
View user's profile Send private message
karz

New User


Joined: 04 Feb 2010
Posts: 39
Location: Mumbai

PostPosted: Sat Jun 12, 2010 12:01 pm
Reply with quote

How to add full stop after the display statement...all the display without with '.'
Back to top
View user's profile Send private message
karz

New User


Joined: 04 Feb 2010
Posts: 39
Location: Mumbai

PostPosted: Sat Jun 12, 2010 6:04 pm
Reply with quote

Folks, the repl to the question i asked is by this syntax

"LINE_AFTER .ZCSR = ' DISPLAY '"LINE3"'.'"

If you see the "." after the LINE3, this is used because after running the utility i got compilation errors, which said that

A period was required before procedure-name "AAAA-PROCEDURE NAME".

I got similar error for all the Para names. thats why i modified the above code...hope you find it useful
Back to top
View user's profile Send private message
karz

New User


Joined: 04 Feb 2010
Posts: 39
Location: Mumbai

PostPosted: Mon Jun 14, 2010 1:06 pm
Reply with quote

The REMDISP Rexx is not removing displays...can anyone suggest what can be teh reason...
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Tue Jun 15, 2010 7:32 am
Reply with quote

Hi Karz,

If you moidify each REXX stmt that issues a COBOL DISPLAY so that it DISPLAYs:
DEBUG~ XXX-PROCEDURE-NAME in place of XXX-PROCEDURE-NAME

You can then use ISPF cmds to get rid of the procedure names displayed in the COBOL code, e.g.

x all;f all debug~;del all nx

It might be wise to check before you delete. icon_wink.gif
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 -> COBOL Programming Goto page Previous  1, 2, 3  Next

 


Similar Topics
Topic Forum Replies
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts SCOPE PENDING option -check data DB2 2
No new posts OUTFIL with SAVE option DFSORT/ICETOOL 7
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
Search our Forums:

Back to Top