/********************************************************************/ 
     /********************************************************************/ 
     /*                                                                  */ 
     /*     Program Name: CL04                                           */ 
     /*                                                                  */ 
     /*     Programming Language: CL                                     */ 
     /*                                                                  */ 
     /*     Description: Load a source physical file member into the     */ 
     /*                  *USRSPC named &MBR.                             */ 
     /*                                                                  */ 
     /*                                                                  */ 
     /*     Header Files Included: None                                  */ 
     /*                                                                  */ 
     /*                                                                  */ 
     /********************************************************************/ 
                  PGM        PARM(&MBR &BINOFFSET) 
                  DCLF       FILE(MISRC) 
                  DCL        VAR(&MBR) TYPE(*CHAR) LEN(10) 
                  DCL        VAR(&BINOFFSET) TYPE(*CHAR) LEN(4) 
                  DCL        VAR(&OFFSET) TYPE(*DEC) LEN(8 0) VALUE(1) 
                  DCL        VAR(&LENGTH) TYPE(*CHAR) LEN(4) + 
                               VALUE(X'00000050') 
                  DCL        VAR(&SPCNAM) TYPE(*CHAR) LEN(20) + 
                               VALUE('          *LIBL     ') 
                  CHGVAR     VAR(%SST(&SPCNAM 1 10)) VALUE(&MBR) 
     LOOP:        RCVF 
                  MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(DONE)) 
                  CALL       PGM(QUSCHGUS) PARM(&SPCNAM &BINOFFSET + 
                               &LENGTH &SRCDTA '0') 
                  CHGVAR     VAR(&OFFSET) VALUE(&OFFSET + 80) 
                  CHGVAR     VAR(%BIN(&BINOFFSET)) VALUE(&OFFSET) 
                  GOTO       CMDLBL(LOOP) 
     DONE:        ENDPGM