© serviceprofessionalgmbh

In many cases problems occur when one of the standard load modules are to be called as a command.

Providing the library name would help but not all programs reside in SYS1.LINKLIB. Apart from that it may happen that programs get moved to different libraries by the system programmers.

The easiest solution lies in the usage of the CALL command without specifying a library name. Thus the LINKLIB concatenation gets searched.

/* 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