On Sat, 30 Jul 2011 06:26:50 -0700, Cris Hernandez #9 wrote:
>
>the habit also ensures that I'm checking the RC's for the
>allocates/read/writes/calls etc. If one my programs has a problem with a less
>than obvious solution, that's one the first things I do is look for the "lc =
>RC" statements (and corresponding action DO) to make sure I'm checking the
>critical things that need checking in order for the program to work the way I
>designed it. Cosmetically, it helps them stand out better.
>
Some programmers use "address" to highlight host environment
commands similarly, even avoiding the standalone "address env".
That can get tedious, although it would have clearly exposed
the OP's misunderstanding.
Sometimes I rely on formatting. Reformatting the OP, it would
be something like:
/*REXX*/
address TSO
"ALLOC DA('A251804.SPOOL(SIN)') F(ISFIN) SHR REU"
"ALLOC DA('A251804.SPOOL(SOUT)') F(ISFOUT) SHR REU"
address SDSF "ISFEXEC SR"
IF RC=0 THEN
DO
address CONSOLE
"CONSOLE ACTIVATE NAME(A251)"
"CONSPROF SOLDISPLAY(NO) UNSOLDISPLAY(NO) SOLNUM(300) UNSOLNUM(300)"
"ALLOC DA('A251804.SPOOL(SIN)') F(ISFIN) SHR REU"
"ALLOC DA('A251804.SPOOL(SOUT)') F(ISFOUT) SHR REU"
"EXECIO * DISKR ISFOUT (STEM LINES. FINIS"
DO K = 1 TO LINES.0 IF (WORDPOS('SHORTAGE',LINES.K) ¬= 0) THEN
DO
address CONSOLE
"$P JOBQ,HOURS>15"
SAY "THE COMMAND $P JOBQ,HOURS>15 EXECUTED"
address TSO
"FREE F(SIN)"
"FREE F(SOUT)"
"CONSOLE DEACTIVATE"
EXIT
END
END
SAY "NO RESOURCE SHORTAGE"
address TSO
"FREE F(SIN)"
"FREE F(SOUT)"
"CONSOLE DEACTIVATE"
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
