asked on

REXX and Abend

i = 19
j = 30
DO FOREVER
IF substr(rec,i,1) = 0 THEN
i = i + 1
ELSE LEAVE
END

I'm programming in REXX, and if I use this block of code, I'm getting an abend error. What's probably going on?

Corey Habbas

Can you post what abend error number you are getting? Is it a short on storage error? If you are possibly running the loop forever then i can be enormous and I am wondering if the datatype can support it?

JCW2

ASKER

20.46.29 JOB01703 $HASP165 T21JOB32 ENDED AT SVSCJES2 - ABENDED S722 U0000 CN(I
NTERNAL)

Corey Habbas

I found a listing for Abend Codes. http://regismain.wikidot.com/abend-codes

S722 - LINES EXCEEDED, ADD A MAIN LINES CARD - //*MAIN LINES=(100,WARNING)

I hope this helps....

JCW2

ASKER

What is the correct way to add the main lines card?

Corey Habbas

I found an article that deals with that exact code, but I don't know if it might apply to your situation.
http://docweb.cns.ufl.edu/qa/q1285/q1285.html

They speak of a SYSOUT variable with how the programmer is choosing to output the data. There are IBM Job Control Language Conventions that I am hoping will help.

Corey Habbas

oops, I forgot to include that link....for the JCL conventions:
http://docweb.cns.ufl.edu/docs/d0013/d0013.html

ASKER CERTIFIED SOLUTION

Corey Habbas

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

JCW2

ASKER

Thank you for your help.

Corey Habbas

You're welcome!