Page 2 of 2

Re: REXX code for pulling up info of a USERID

PostPosted: Wed Oct 08, 2008 1:23 am
by mike may
I am not familiar with trace listing. I am taking a class online and using this project to get the feel but my logic seems to be off. Thanks for your help anyway. I'll keep plugging

Re: REXX code for pulling up info of a USERID

PostPosted: Wed Oct 08, 2008 3:11 am
by mike may
Below is a TRACE RESULTS of the above error:

3 *-* PARSE UPPER ARG PGM
>>> ""
4 *-* PULL INPGM
>>> ""
5 *-* IF (PGM = '')
>>> "1"
*-* THEN
6 *-* DO
7 *-* SAY ' '
>>> " "

8 *-* SAY ' '
>>> " "

9 *-* SAY ' '
>>> " "

10 *-* SAY 'ENTER USERID:'
>>> "ENTER USERID:"
ENTER USERID:
11 *-* PGM = WORD(INPGM,1)
>>> ""
12 *-* "ALLOC FI(INDD) DA('DPMM05M.TSO.NAMES') SHR REUSE"
>>> "ALLOC FI(INDD) DA('DPMM05M.TSO.NAMES') SHR REUSE"
13 *-* "EXECIO * DISKR INDD (STEM IN. FINIS"
>>> "EXECIO * DISKR INDD (STEM IN. FINIS"
14 *-* DONE = 'NO'
>>> "NO"
15 *-* LINENO = 0
>>> "0"
16 *-* ACCT = ' '
>>> " "
17 *-* LASTNAME = ' '
>>> " "
18 *-* FIRSTNAME = ' '
>>> " "
19 *-* DO WHILE DONE = 'NO'
>>> "1"
20 *-* "EXECIO 1 DISKR INDD"
>>> "EXECIO 1 DISKR INDD"
21 *-* IF RC = 0
>>> "1"
*-* THEN /* RECORD WAS READ */
22 *-* DO
23 *-* PULL RECORD
>>> " ACCT LAST FIRST CREATE CH
G ACCESSED SINCE TSO "
25 *-* LINENO = LINENO + 1 /* COUNT THE RECORD */
>>> "1"
26 *-* IF INDEX(RECORD,PGM) ¬= 0
>>> "0"
33 *-* ELSE
*-* NOP
34 *-* END
37 *-* "EXECIO 0 DISKR INDD (FINIS"
>>> "EXECIO 0 DISKR INDD (FINIS"
38 *-* SAY ACCT LASTNAME FIRSTNAME
>>> " "

39 *-* RETURN ACCT LASTNAME FIRSTNAME
>>> " "
IRX0026I Error running WHOIS5, line 39: Invalid whole number
***