IDENTIFICATION DIVISION.
PROGRAM-ID. XMENU.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-AS400.
OBJECT-COMPUTER. IBM-AS400.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 OPCION PIC 9(2).
77 USR PIC X(10) VALUE ALL ".".
*-- CONTROL DE FECHAS -----------------------------------------
01 FECHA PIC X(6).
01 FECHA-A.
03 DIA-A PIC X(2).
03 MES-A PIC X(2).
03 ANO-A PIC X(2).
01 FECHA-B.
03 ANO-B PIC X(2).
03 MES-B PIC X(2).
03 DIA-B PIC X(2).
01 RELOJ.
03 HORA PIC 9(2).
03 MINUTO PIC 9(2).
03 SEGUNDO PIC 9(2).
03 FILLER PIC 9(2).
*-- IND DE PANTALLA ---------------------------------------------
01 TECLA PIC 99999 COMP-1.
* Escape
88 SALIDA VALUE 27.
* Cursores
88 ANTERIOR VALUE 65.
88 POSTERIOR VALUE 66.
88 ARRIBA VALUE 52.
88 ABAJO VALUE 53.
88 ARRIBA-PG VALUE 67.
88 ABAJO-PG VALUE 68.
88 ARRIBA-TODO VALUE 54.
88 ABAJO-TODO VALUE 82.
* Funciones
88 F1 VALUE 01.
88 F2 VALUE 02.
88 F3 VALUE 03.
88 F4 VALUE 04.
88 F5 VALUE 05.
88 F6 VALUE 06.
88 F7 VALUE 07.
88 F8 VALUE 08.
88 F9 VALUE 09.
88 F10 VALUE 10.
*----------------------------------------------------------------
77 PROC PIC X(3) VALUE "***".
*----------------------------------------------------------------
PROCEDURE DIVISION.
*----------------------------------------------------------------
MAIN SECTION.
INICIO.
DISPLAY " " ERASE.
PRESENTA.
DISPLAY "Usuario:" LINE 1 POSITION 4 LOW.
DISPLAY USR LINE 1 POSITION 13 LOW.
DISPLAY "Menu :" LINE 2 POSITION 4 LOW.
DISPLAY "... Gestion Bibliografica ...."
LINE 1 POSITION 26.
ACCEPT FECHA FROM DATE.
MOVE FECHA TO FECHA-B.
DISPLAY DIA-B LINE 1 POSITION 71 "/" LOW
MES-B "/" LOW ANO-B.
ACCEPT RELOJ FROM TIME.
DISPLAY HORA LINE 2 POSITION 71 ":" LOW
MINUTO ":" LOW SEGUNDO.
*-----------------------------------------------------------------*
* MENU GENERAL DE LA APLICACION *
*-----------------------------------------------------------------*
GENERAL.
PERFORM PRESENTA.
DISPLAY "GENERAL..."
LINE 2 POSITION 13 LOW.
DISPLAY " Diego Marquez. "
LINE 2 POSITION 26 REVERSE.
*-----------------------------------------------------------------
DISPLAY " 1. Gestion de Libros. "
LINE 4 POSITION 4 LOW "|" LOW.
DISPLAY " 2. Gestion de Materias. "
LINE 5 POSITION 4 LOW "|" LOW.
DISPLAY " 3. "
LINE 6 POSITION 4 LOW "|" LOW.
DISPLAY " 4. "
LINE 7 POSITION 4 LOW "|" LOW.
DISPLAY " 5. "
LINE 8 POSITION 4 LOW "|" LOW.
DISPLAY "11. Listados de Libros y Volumenes "
LINE 14 POSITION 4 LOW "|" LOW.
DISPLAY "12. Listado de Materias. "
LINE 15 POSITION 4 LOW "|" LOW.
DISPLAY "13. Calculadora "
LINE 4 POSITION 44 LOW.
DISPLAY "14. Editor de Textos. "
LINE 5 POSITION 44 LOW.
DISPLAY "15. "
LINE 6 POSITION 44 LOW.
DISPLAY "16. "
LINE 7 POSITION 44 LOW.
DISPLAY "17. "
LINE 8 POSITION 44 LOW.
DISPLAY "24. FIN DE SESION "
LINE 15 POSITION 44 LOW.
*-----------------------------------------------------------------
GENERAL-ACP.
DISPLAY "TECLEE SU OPCION: __ (Y SU MENSAJE) : "
LINE 20 POSITION 2 LOW
ALL "_" SIZE 41 LINE 20 POSITION 40 LOW
ALL "_" SIZE 79 LINE 21 POSITION 1 LOW.
GENERAL-OP.
ACCEPT OPCION NO BEEP CONVERT PROMPT LINE 20 POSITION 20
TAB ON EXCEPTION TECLA GO GENERAL-CONTROL.
GENERAL-CONTROL.
IF SALIDA OR OPCION EQUAL 24 OR F3 GO OP-SALIDA.
IF OPCION EQUAL 1
CALL "XGLIB.COB"
CANCEL "XGLIB.COB" GO GENERAL.
IF OPCION EQUAL 2
CALL "XGMAT.COB"
CANCEL "XGMAT.COB" GO GENERAL.
IF OPCION EQUAL 11
CALL "XLLIB01.COB"
CANCEL "XLLIB01.COB" GO GENERAL.
IF OPCION EQUAL 12
CALL "XLMAT01.COB"
CANCEL "XLMAT01.COB" GO GENERAL.
IF OPCION EQUAL 13
CALL "DMCALC.COB"
CANCEL "DMCALC.COB" GO GENERAL.
IF OPCION EQUAL 14
CALL "DMEDIT.COB"
CANCEL "DMEDIT.COB" GO GENERAL.
GO GENERAL-OP.
*----------------------------------------------------------------
OP-SALIDA. DISPLAY " " ERASE.
OP-STOP. STOP RUN.
*----------------------------------------------------------------
GIRA-FECHA SECTION.
GF.
*----------------------------------------------------------------