CURSO_zOS_FUND

EDIT PANEL RECOVERY.
Panel de Recovery enviado por el ISPF cuando se restablece o inicia una
sesión después de una falla del sistema.
+----------------------------------------------------------------------------------+
---------------------------- EDIT - RECOVERY ----------------------------- - --
COMMAND ===>
*****************************************
* EDIT AUTOMATIC RECOVERY *
*****************************************
The following data set was being edited when a system failure or
task ABEND occurred:
Data set: USERID.PRIVATE.ASM
Volume:
PRMDA5
Instructions:
Press ENTER to continue editing the data set, or
Enter END command to return to the primary option menú, or
Enter DEFER command to defer recovery of the specified data set, or
Enter CANCEL command to cancel recovery of the data set
To continue editing a password protected data set, specify:
DATA SET PASSWORD ===>
+----------------------------------------------------------------------------------+
EDIT PANEL
+----------------------------------------------------------------------------------+
EDIT ---- USERID.PRIVATE.COBOL{CBLMAIN) - 01.00 -- - ----------- COLUMNS 007 072
COMMAND ===> ex s9(8)v99 all_
000110 DATA RECORD IS 0-C.
000200 01 o-c.
000300 02 DUMMY PICTURE X(80).
000400 WORKING - STORAGE SECTION.
000500 77 OP-SUB PICTURE S99 COMPUTATIONAL VALUE O.
000600 77 PREV-DEVICE-TYPE-CODE PICTURE X VALUE 'I'.
000700 77 PREV - ACTV - CODE PICTURE 9 VALUE O.
000800 77 PREV-PROB-CODE PICTURE 9 VALUE O.
000900 77 e-SWITCH PICTURE X VALUE '0'.
001000 77 PREV - SYSTEM-CODE PICTURE X VALUE SPACE.
001100 77 GSA - REF PICTURE XX.
==CHG>
==CHG>
77 UNIT - PRICE - NUMERIC - INT PICTURE S9(8)V99.
77 BML - NUMERIC - INT PICTURE S9(8)V99.
001400 77 PREV - MODEL PICTURE X(5) VALUE '0'.
001500 77 PG - COUNT PICTURE 999 VALUE O.
001600 77 PERIOD PICTURE 99 VALUE O.
==CHG> 77 PL - TOTAL - PRICE - NUMERIC - INT PICTURE S9(8)V99 VALUE O.
==CHG> 77 PL - TOTAL - BMR - NUMERIC-INT PICTURE S9(8)V99 VALUE O.
001900 77 PL - MAINT - REQ - NUM PICTURE S9(4)V99 VALUE O.
002000 77 HEADING-SW PICTURE 9 VALUE l.
002100 77 PREV-DEVICE PICTURE X(6) VALUE SPACES.
002200 77 PREV - RPQ - FEATURE PICTURE X(lO) VALUE SPACES.
SCROLL ===> PAGE
+----------------------------------------------------------------------------------+
Página 89 de 105