/if not defined(QBNRSPGM) /define QBNRSPGM * Retrieve Service Program Information D QBNRSPGM PR EXTPGM('QBNRSPGM') D RecVar 32767A OPTIONS(*VARSIZE) Receiver variable D RecVarLen 10I 0 CONST Receiver var length D FormatName 8A CONST ds:SPGI0100-? D PgmLib 20A CONST Pgm and Library D ErrorCode 32767A options(*varsize) Error code /include ROUTINES/QAPISRC,ERRC0100 /endif