H            Y/                                                      PGMID 
     F**********  エラー・モニター ************************************         
     FFILE    IF  F    9999            DISK                                     
     F                                              KINFDS INFDS                
     F                                              KINFSR *PSSR                
     F*****************************************************************         
     I*( プログラム状況データ構造 )                                             
     IINFDSP     SDS                                                            
     I* ﾌﾟﾛｸﾞﾗﾑ 名                                                              
     I                                        1  10 PGID                        
     I                                       81  90 PGLB                        
     I                                       43  46 CPFID                       
     I                                       91 170 CPFMSG                      
     C*( *PSSR からの戻り )                                                     
     C           *IN93     IFEQ *ON                        *PSSR                
     C                     SETOF                     93                         
     C                     GOTO CPFERR                                          
     C                     END                             *PSSR                
     C******************************************************                    
     C           *PSSR     BEGSR                                                
     C******************************************************                    
     CSR         CPFIDK    IFNE *BLANKS                    CPFID                
     CSR                   Z-ADD30        MSGSEV                                
     CSR                   SETON                     93                         
     CSR                   END                             CPFID                
     CSR                   ENDSR'*DETC '