/********************************************************************/ 
     /********************************************************************/ 
     /*                                                                  */ 
     /*     Program Name: CL06                                           */ 
     /*                                                                  */ 
     /*     Programming Language: CL                                     */ 
     /*                                                                  */ 
     /*     Description: Load a source physical file member into the     */ 
     /*                  *USRSPC addressed by &BUFFER.                   */ 
     /*                                                                  */ 
     /*                                                                  */ 
     /*     Header Files Included: None                                  */ 
     /*                                                                  */ 
     /*                                                                  */ 
     /********************************************************************/ 
                  PGM        PARM(&BUFFER &OFFSET) 
                  DCLF       FILE(MISRC) 
                  DCL        VAR(&BUFFER) TYPE(*CHAR) LEN(1600) 
                  DCL        VAR(&OFFSET) TYPE(*DEC) LEN(15 5) 
     LOOP:        RCVF 
                  MONMSG     MSGID(CPF0864 CPF4137) EXEC(GOTO CMDLBL(DONE)) 
                  CHGVAR     VAR(%SST(&BUFFER &OFFSET 80)) VALUE(&SRCDTA) 
                  CHGVAR     VAR(&OFFSET) VALUE(&OFFSET + 80) 
                  IF         COND(&OFFSET *GT 1600) THEN(GOTO CMDLBL(DONE)) 
                  GOTO       CMDLBL(LOOP) 
     DONE:        ENDPGM