Not able to execute rexx macro in bckground for ISPEXEC VIEW

Jaffer Sadiq · New User Joined: 05 Mar 2013 Posts: 2 Location: India

Hi, I am a beginner learning REXX. I am developing a tool for counting LOC of a member for a given PDS. So far I am good with the total count which I getting, but now I need to expand the copybook and then count the LOC. For doing this I used ISPEXEC VIEW command after the allocation of the PDS member is done, but its not executing in the background. For that I need to press enter manually then ony I will be able to get out of the loop... Can anyone help me with this...

expat · Posted: Wed Mar 06, 2013 1:10 pm

Not without seeing the code, but usually an "ISREDIT END" statement missing from the macro

Stefan · Posted: Wed Mar 06, 2013 1:38 pm

What also often causes the need for an additional ENTER is that you queued data to the stack without terminating with a null string as last stack entry, and then used EXECIO DISKR with an asterix (*). In this case the EXECIO function reads all queued lines, does not find any EOF indicator, and thus waits for additional lines from the default input queue SYSTSIN (terminal).
This could easily avoided by either queueing a null string as the last line to the stack, or replace the asterix used for the EXECIO function by a variable containing the number of lines queued.

expat · Posted: Wed Mar 06, 2013 1:58 pm

Just reading back over this

Background .......... suggests a BATCH operation, yet you say that you need to press ENTER

is this a background (BATCH) operations or a foreground (TERMINAL) operation.

You really do need to be accurate when describing a problem

enrico-sorichetti · Posted: Wed Mar 06, 2013 2:19 pm

why reinvent the wheel when there are ready to run tools that just do it

see for example

Jaffer Sadiq · New User Joined: 05 Mar 2013 Posts: 2 Location: India

ADDRESS TSO "ALLOC DA('"DSN0"') DD(OUTDD) MOD REUSE"
"EXECIO 0 DISKW OUTDD (OPEN"
X = OUTTRAP('VAR.')
"LISTDS '"DSN_NAME"' MEMBERS"
G = 0
DO NUM = 7 TO VAR.0
MEM=DSN_NAME || '(' || STRIP(VAR.NUM) || ')'
DSE=SYSDSN("'"MEM"'")
IF (DSE = 'OK') THEN
"FREE DD(INDD)"
ADDRESS TSO "ALLOC DA('"MEM"') DD(INDD) SHR REUSE"
ADDRESS ISPEXEC "VIEW DATASET('"MEM"') MACRO(XPNDJF)"
IN_LCTR = 0
LINEDATA = ''
"EXECIO 0 DISKR INDD (OPEN"
"EXECIO * DISKR INDD (FINIS STEM COUNT."
IF RC = 0 THEN
DO I = 1 TO COUNT.0
POSITION = POS('*',COUNT.I)
LINEDATA = SUBSTR(COUNT.I,7,72)
IF (POSITION \= 7) THEN
DO
IF (LINEDATA \= SP) THEN
DO
IN_LCTR = IN_LCTR + 1
END
END
END
SAY IN_LCTR
G = G + 1
REPORT.G = MEM || ''LINES OF CODE'' IN_LCTR
"EXECIO 0 DISKR INDD (FINIS"
"FREE FI(INDD)"
END
X = OUTTRAP('OFF')

I used the bold line mentioned for expanding a copybook which has a macro "XPNDJF". My problem is without expanding I am able to get the total count of LOC for a given member in PDS. But I need to do that after expanding the copybook. For doing this, I used the ISPEXEC VIEW but not working so far. Is there any ways to implement or a way to invoke this macro and execute it further...

expat · Posted: Wed Mar 06, 2013 2:55 pm

I do hope that some day I will understand this preoccupation with knowing how many lines of code there are.

Does it really matter how many there are if the program works, and work efficiently ???

enrico-sorichetti · Posted: Wed Mar 06, 2013 3:03 pm

and I still do not know why use some in-house tool when there are sound alternatives

prino · Posted: Wed Mar 06, 2013 4:00 pm

enrico-sorichetti · Posted: Wed Mar 06, 2013 4:06 pm