- Dettagli
- Visite: 773
IDENTIFICATION DIVISION.
PROGRAM-ID. PRTAQ131.
*--------------------------------------------------------------*
* PROGETTO RETTIFICHE *
* ------------------- *
* AUTORE : FRANCO D'AMICO C.O.DI MARSALA *
* *
* FUNZIONE : SCELTA OPZIONI *
* PGM CHIAMANTI : PRTMN01 *
* PGM CHIAMATI : PRTAQ10-PRTAQ11-PRTAQ12 *
* MAPPE : MRTAQ10 *
* AREA DI INPUT : CRTMN01 - *
* *
*--------------------------------------------------------------*
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-AS400.
OBJECT-COMPUTER. IBM-AS400.
SPECIAL-NAMES. DECIMAL-POINT IS COMMA
REQUESTOR IS WORK-STATION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT VIDEO ASSIGN TO WORKSTATION-MRTAQ10
ORGANIZATION IS TRANSACTION
ACCESS IS SEQUENTIAL
FILE STATUS IS F-STATUS.
DATA DIVISION.
FILE SECTION.
FD VIDEO
LABEL RECORD IS omitted.
01 REC-VIDEO.
COPY DDS-ALL-FORMAT OF MRTAQ10.
*****************************************************************
WORKING-STORAGE SECTION.
01 IND-ON PIC 1 VALUE B"1".
01 IND-OFF PIC 1 VALUE B"0".
01 F-STATUS PIC XX.
01 AREA-INDIC.
COPY DDS-ALL-FORMATS-INDIC OF MRTAQ10.
LINKAGE SECTION.
COPY CRTMN01 OF DCBCPY.
*****************************************************************
PROCEDURE DIVISION USING AREA-MN01.
MAIN.
MOVE SPACES TO CM1-MSG
PERFORM APRI THRU EX-APRI.
MOVE IND-OFF TO IN12 OF MA04-I-INDIC.
PERFORM SEQUENZA THRU EX-SEQUENZA
UNTIL IN12 OF MA04-I-INDIC = IND-ON.
FINE.
CLOSE VIDEO.
GOBACK.
APRI.
OPEN I-O VIDEO.
IF F-STATUS NOT EQUAL "00"
MOVE F-STATUS TO CM1-FSTATUS
MOVE "MRTAQ10" TO CM1-ERRFILE
MOVE "PRTAQ13" TO CM1-ERRPGM
MOVE 1 TO CM1-RETCOD
CALL "PRTUT02" USING AREA-MN01
END-IF.
EX-APRI. EXIT.
SEQUENZA.
WRITE REC-VIDEO FORMAT "MA04".
READ VIDEO FORMAT "MA04"
INDICATORS ARE MA04-I-INDIC.
IF IN12 OF MA04-I-INDIC = IND-ON
GO TO EX-SEQUENZA
END-IF.
EVALUATE MA4SCEL OF MA04-I
WHEN 1
MOVE SPACES TO CM1-MSG
CALL "PRTAQ09" USING AREA-MN01
MOVE IND-ON TO IN12 OF MA04-I-INDIC
WHEN 2
MOVE SPACES TO CM1-MSG
* CALL "PRTAQ12" USING AREA-MN01
DISPLAY "PROGRAMMA NON ANCORA ATTIVO"
MOVE IND-ON TO IN12 OF MA04-I-INDIC
WHEN 3
MOVE SPACES TO CM1-MSG
CALL "PRTAQ10" USING AREA-MN01
MOVE IND-ON TO IN12 OF MA04-I-INDIC
END-EVALUATE.
EX-SEQUENZA. EXIT.
