DCL SYSPTR .SEPT(6440) BAS(@SEPT);
DCL SPCPTR @SEPT BASPCO;

DCL SPCPTR .RETURN-LIB INIT(RETURN-LIB);
DCL DD      RETURN-LIB CHAR(10);

DCL SPCPTR .QUAL-OBJ-LIB INIT(QUAL-OBJ-LIB);
DCL DD      QUAL-OBJ-LIB CHAR(20);
    DCL DD  QUAL-OBJ-NAME CHAR(10) DEF(QUAL-OBJ-LIB) POS( 1);
    DCL DD  QUAL-LIB-NAME CHAR(10) DEF(QUAL-OBJ-LIB) POS(11);

DCL SPCPTR .OBJ-TYPE INIT(OBJ-TYPE);
DCL DD      OBJ-TYPE CHAR(10);

DCL SPCPTR .ERROR-CODE INIT(ERROR-CODE);
DCL DD      ERROR-CODE BIN(4) INIT(0);

DCL SPCPTR .OBJ-INFO INIT(OBJ-INFO);
DCL DD      OBJ-INFO CHAR(42);
    DCL DD  INFO-NBR-RECS         BIN(4) DEF(OBJ-INFO) POS( 1);
    DCL DD  INFO-KEY              BIN(4) DEF(OBJ-INFO) POS( 5);
    DCL DD  INFO-LENGTH           BIN(4) DEF(OBJ-INFO) POS( 9);
    DCL DD  INFO-DATA           CHAR(30) DEF(OBJ-INFO) POS(13);
        DCL DD INFO-FILE        CHAR(10) DEF(INFO-DATA) POS( 1);
        DCL DD INFO-LIB         CHAR(10) DEF(INFO-DATA) POS(11);
        DCL DD INFO-MBR         CHAR(10) DEF(INFO-DATA) POS(21);

DCL OL QLICOBJD(.RETURN-LIB, .QUAL-OBJ-LIB, .OBJ-TYPE,
                             .OBJ-INFO, .ERROR-CODE);

ENTRY * EXT;
    CPYBLAP      QUAL-OBJ-NAME, "ILEMAIN", " ";
    CPYBLAP      QUAL-LIB-NAME, "*CURLIB", " ";
    CPYBLAP      OBJ-TYPE,      "*MODULE", " ";
    CPYNV        INFO-NBR-RECS, 1;
    CPYNV        INFO-KEY,      1; /* SOURCE INFO  */
    CPYNV        INFO-LENGTH,  30; /* FILE+LIB+MBR */
    CPYBLAP      INFO-LIB, "LSVALGAARX", " ";
    CALLX       .SEPT(4553), QLICOBJD, *;
    RTX          *;