■  ABEND時、OSに制御を戻す方法


実行オプションに ABEXIT NO を入れるとJOBがABENDします。
入れないと(デフォルトはいれないのと同じ)、JOBのコンディションコードが16で、 JOBはノーマルエンドします。

EX)
//SYSLIN   DD   *
LIST OFF
PARM ABEXIT NO -    ←これ
     LIST(NOPARM NOFILE)
FILE FILEA
I-AAA        1  5 P 0
I-BBB        *  5 P 0
*
WK           W  5 P 0
JOB INPUT FILEA
     WK = I-AAA + I-BBB
     PRINT REPT1
REPORT REPT1 TITLESKIP 1 TALLYSIZE 8
TITLE 1 '***** TEST *****'

            ↓実行結果

JOB01224 ---- MONDAY,    07 MAY 2001 ----                                  
JOB01224  IRR010I  USERID U000001  IS ASSIGNED TO THIS JOB.                
JOB01224  ICH70001I U000001  LAST ACCESS AT 13:47:56 ON MONDAY, MAY 7, 2001
JOB01224  \HASP373 U000001A STARTED - INIT B000 - CLASS B - SYS SYSA       
JOB01224  IEF403I U000001A - STARTED - TIME=14.52.16                       
JOB01224  IEA995I SYMPTOM DUMP OUTPUT                                      
          SYSTEM COMPLETION CODE=0C7  REASON CODE=00000007                 
           TIME=14.52.17  SEQ=00752  CPU=0000  ASID=01F5                   
           PSW AT TIME OF ERROR  078D2000   0001F15A  ILC 6  INTC 07       
             NO ACTIVE MODULE FOUND                                        
             NAME=UNKNOWN                                                  
             DATA AT PSW  0001F154 - F8F44A38  5000F8F4  4A485005          
             GPR  0-3  00015F4C  00009668  00000000  00027010              
             GPR  4-7  0002B000  00019E80  000062D0  00000000              
             GPR  8-11 00000000  0002BD50  80012636  0001F010              
             GPR 12-15 00DBF30A  00009624  5001F12A  00000000              
           END OF SYMPTOM DUMP                                             
JOB01224  IEF450I U000001A ST1 STEP1 - ABEND=S0C7 U0000 REASON=00000007    
                  TIME=14.52.17                                            
JOB01224  IEF404I U000001A - ENDED - TIME=14.52.18                         
JOB01224  \HASP395 U000001A ENDED

※この例では、S−0C7で異常終了した例です。

 



BEFORE PAGE

TOP PAGE