PGM        PARM(&USER &PASS)                                       
/*---------------------------------------------------------*/                   
/*   TESTUSR  :   ユーザー、パスワードの検査               */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&USER) TYPE(*CHAR) LEN(10)                          
             DCL        VAR(&PASS) TYPE(*CHAR) LEN(10)                          
             DCL        VAR(&PRFHND) TYPE(*CHAR) LEN(12)                        
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(80)                           
             DCL        VAR(&APIERR) TYPE(*CHAR) LEN(4) +                       
                          VALUE(X'00000000') /* 2 進数  */                      
             DCL        VAR(&LEN) TYPE(*CHAR) LEN(4)                            
             DCL        VAR(&CCSID) TYPE(*CHAR) LEN(4)                          
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))                 
                                                                                
             CHGVAR     VAR(%BIN(&LEN)) VALUE(10)                               
             CHGVAR     VAR(%BIN(&CCSID)) VALUE(65535)                          
             CALL       PGM(QSYGETPH) PARM(&USER &PASS &PRFHND +                
                          &APIERR &LEN &CCSID)                                  
             CALL       PGM(QSYRLSPH) PARM(&PRFHND)                             
             SNDPGMMSG  MSG(' ログイン OK') MSGTYPE(*COMP)                      
             RETURN                                                             
                                                                                
 ERROR:      RCVMSG     MSGTYPE(*LAST) RMV(*NO) MSG(&MSG)                       
 SNDMSG:     SNDPGMMSG  MSG(&MSG) MSGTYPE(*DIAG)                                
             ENDPGM