HZSADDCK CHECKNAME=RNAME,             
         CHECKOWNER=ROWNER,        
         REMOTE=YES,                
         HANDLE=RHANDLE,         
         PETOKEN=RPETOKEN,      
         DATE=RDATE2,           
         REASON=RREASON,     
         REASONLEN=RREASONLEN,    
         SEVERITY=LOW,         
         INTERVAL=TIMER,        
         HOURS=RHOURS,MINUTES=RMINUTES,      
         RETCODE=RetCode,        
         RSNCODE=RsnCode   
*                                                              
* Place code to check return/reason codes here                 
*                                                              
ROWNER     DC   CL16'IBMABC'                                
RNAME      DC   CL32'A_CHECK'                                                                           
RDATE      DC   CL8'20060112'                                  
RREASON    DC   CL32'Verify widgets are present.'         
RREASONLEN DC   A(L'RREASON)                                   
RHOURS     DC   H'1'                                           
RMINUTES   DC   H'0'                                          
         HZSZCONS              Return code information         
DYNAREA  DSECT  
RHANDLE    DS   CL16                                
RPETOKEN   DS   CL16                                               
RRETCODE   DS   F                                              
RRSNCODE   DS   F                                              
         HZSADDCK MF=(L,ADDCKL),PLISTVER=MAX