SELECT PGM
Posted: Wed Jun 13, 2018 9:28 pm
Hello, it's the fisrt time i'm using "SELECT PGM" in a rexx but i can't anderstant the error (RC=8) juste after : "SELECT PGM(IEHLIST)"
10 *-* QUEUE COMMAND
>V> " LISTVTOC VOL=3390=CVFTCD,DSNAME=MY.DATSA.VTOC"
11 *-* "EXECIO 1 DISKW SYSIN (FINIS"
>L> "EXECIO 1 DISKW SYSIN (FINIS"
12 *-* /* "CALL 'SYS1.LINKLIB(IEHLIST)'" */
13 *-* X = OUTTRAP("ST.")
>L> "ST."
>F> "ST."
14 *-* ADDRESS ISPEXEC
15 *-* "SELECT PGM(IEHLIST)"
>L> "SELECT PGM(IEHLIST)"
+++ RC(8) +++
16 *-* X = OUTTRAP("OFF")
>L> "OFF"
>F> "OFF"
17 *-* ADDRESS TSO "FREE F(SYSIN)"
>L> "FREE F(SYSIN)"
18 *-* "EXECIO * DISKR SYSPRINT (FINIS"
>L> "EXECIO * DISKR SYSPRINT (FINIS"
10 *-* QUEUE COMMAND
>V> " LISTVTOC VOL=3390=CVFTCD,DSNAME=MY.DATSA.VTOC"
11 *-* "EXECIO 1 DISKW SYSIN (FINIS"
>L> "EXECIO 1 DISKW SYSIN (FINIS"
12 *-* /* "CALL 'SYS1.LINKLIB(IEHLIST)'" */
13 *-* X = OUTTRAP("ST.")
>L> "ST."
>F> "ST."
14 *-* ADDRESS ISPEXEC
15 *-* "SELECT PGM(IEHLIST)"
>L> "SELECT PGM(IEHLIST)"
+++ RC(8) +++
16 *-* X = OUTTRAP("OFF")
>L> "OFF"
>F> "OFF"
17 *-* ADDRESS TSO "FREE F(SYSIN)"
>L> "FREE F(SYSIN)"
18 *-* "EXECIO * DISKR SYSPRINT (FINIS"
>L> "EXECIO * DISKR SYSPRINT (FINIS"