Évaluations - , GPA:
(
)
)
Fabricant : HP
Taille : 612.87 kb
Nom Fichier :
Langue d'enseignement: 
Le document est chargé, s'il vous plaît patienter
 |
Le document est chargé, s'il vous plaît patienter
Par ce dispositif a également d'autres instructions :
Facilité d'utilisation
Sample Programs
COBOL II Program
011400 05 CREDIT-INFO-MASTER OCCURS 5 TIMES.
011500 10 CO-CODE-MASTER PIC X.
011600 10 BALANCE-MASTER PIC 9(4)V9(2).
011700 05 FILLER PIC X(14).
011800 05 RISK-CODE-MASTER PIC X(1).
011900*
012000 01 ERROR-RECORD REDEFINES MASTER-DATA.
012100 05 ERROR-CODE PIC 9(4).
012200 05 FILLER PIC X(76).
012300*
012400 01 TRANS-DATA.
012500 05 SOCSEC-TRANS.
012600 10 SOCSEC1-TRANS PIC X(3).
012700 10 SOCSEC2-TRANS PIC X(2).
012800 10 SOCSEC3-TRANS PIC X(4).
012900 05 NAME-TRANS.
013000 10 LAST-NAME-TRANS PIC X(10).
013100 10 FIRST-NAME-TRANS PIC X(10).
013200 10 MI-NAME-TRANS PIC X.
013300*
013400*
013500*----------------------------------------------------*
013600 PROCEDURE DIVISION.
013700*----------------------------------------------------*
013800*
013900*----------------------------------------------------*
014000 000000-MAINLINE SECTION.
014100*----------------------------------------------------*
014200*
014300 PERFORM 101000-BEGIN-HOUSEKEEPING.
014400*
014500 PERFORM 102000-PROCESS-RECORDS
014600 UNTIL QUIT-SW = YES-SW.
014700*
014800 PERFORM 103000-END-HOUSEKEEPING.
014900*
015000 000099-EXIT.
015100 STOP RUN.
015200*
164
Appendix B
... Ce manuel est également adapté pour les modèles :
Logiciel - MPE/iX 6.5 Operating System (612.87 kb)
Logiciel - MPE/iX 7.0 Operating System (612.87 kb)
Logiciel - MPE/iX 7.5 Operating System (612.87 kb)