© serviceprofessionalgmbh

In vielen Situationen treten Probleme auf, wenn eines der Standard-Lademodule als Command aufgerufen werden soll.

Die Angabe des Bibliotheksnamens würde Abhilfe schaffen, aber nicht alle Programme liegen in der SYS1.LINKLIB. Zudem kann durchaus vorkommen, dass Programme von der Systemprogrammierung in andere Bilbiotheken umgezogen werden.

Die einfachste Lösung ist die Nutzung des CALL-Kommandos ohne Angabe eines Bilbiotheksnamens. Auf diese Weise wird die LINKLIB-Verkettung untersucht.

/* REXX
   CALL auf IEBGENER ohne Bibliotheksangaben
*/
DMY = MSG("OFF")
"FREE DD(SYSUT1 SYSUT2 SYSIN SYSPRINT)"
"ALLOC DD(SYSUT1) DA(dataset) SHR"
"ALLOC DD(SYSUT2) DA(*)"
"ALLOC DD(SYSIN) DUMMY"
"ALLOC DD(SYSPRINT) DUMMY"

"IEBGENER"  /* -------- hat RC12 */
SAY "RC nach 'IEBGENER'" RC

"CALL *(IEBGENER)" /* - funktioniert */
SAY "RC nach CALL *() '" RC

"FREE DD(SYSUT1 SYSUT2 SYSIN SYSPRINT)"
EXIT