CL操作PF样例

             PGM        PARM(&SONB)                                 
             DCL        VAR(&SONB) TYPE(*CHAR) LEN(8)               
             DCL        VAR(&PROF) TYPE(*CHAR) LEN(50)              
             DCL        VAR(&USER) TYPE(*CHAR) LEN(10)              
             DCL        VAR(&OUTQ) TYPE(*CHAR) LEN(10) VALUE(NSSPRT)
             DCLF       FILE(STESOHP) RCDFMT(STESOHR)               
 READ:       RCVF       RCDFMT(STESOHR)                             
             MONMSG     MSGID(CPF0000) EXEC(DO)                     
             RTVUSRPRF  TEXT(&PROF)                                 
             GOTO       CMDLBL(OUTQ)                                
             ENDDO                                                  
             IF         COND(&TESONB *EQ &SONB) THEN(DO)            
             CHGVAR     VAR(&USER) VALUE(&TEURNM)                   
             RTVUSRPRF  USRPRF(&USER) TEXT(&PROF)                   
             GOTO       CMDLBL(OUTQ)                                
             ENDDO                                                  

             GOTO       CMDLBL(READ)                                 
 OUTQ:                                                               
             IF         COND(%SST(&PROF 1 3) *EQ 'NTS') THEN(CHGVAR +
                          VAR(&OUTQ) VALUE(NSSTJ))              

另外,CL也可以对画面文件操作:

ST:                                         

    SNDRCVF      RCDFMT(GAMEN)              

AFTER:                                      

    IF (&IN01)   RETURN     /*   END   */   

    IF (&IN03)   RETURN     /*   END   */   

    IF (&IN06)   DO         /*  DSPMSG */