Realizzare un menu per programmi Cobol

Altre pagine:	1] Realizzare un menu		3] I parametri menu
	2] Interfaccia utente		4] Gli script del menu

Realizzare un menu per programmi Cobol.

In queste pagine vorrei illustrare come ho realizzato un menu per la gestione dei programmi Cobol i cui vantaggi principali possono essere cosi riassunti:

     immagine Utilizzo facilitato dei programmi grazie al raggruppamento per applicazione.
     Unico richiamo del runtime di Cobol per sessione.
     Gestione del nome dei files fisici in modo dinamico ed esterno al programma.
     Selezione dell’anno contabile con susseguente assegnazione automatica del nome file.
     immagine Generazione automatica del nome per i files che non devono essere condivisi (own).
     Concatenamento di programmi.
     Attribuzione dei privilegi di accesso a livello di programma.
     Protocollo delle procedure centralizzato.
     immagine Scelta della stampante a livello di menu.
     Libera parametrizzazione del menu stesso.

Funzionamento

I programmi vengono richiamati dal menu tramite il comando CALL.
In questo modo i programmi diventano dei moduli ed il menu il programma principale.
I nomi fisici (esterni) dei files vengono passati ai programmi utilizzando i parametri del comando CALL

Nome dei files esterni

Nei moduli ho incluso una tabella con 80 poste riservate al nome dei files.
In tale modo sono ammessi sino a 80 differenti files per modulo richiamato.
Come si può notare in questo spezzone di programma, il nome del file esterno viene usato anche nelle declaratives.
Il campo RM-CALL-JCL viene usato per restituire al programma principale informazioni relative allo stato di esecuzione del modulo.
Un valore zero sta a significare un corretto svolgimento del programma, mentre un valore 7 indica una esecuzione con errori non revocabili.
Questo codice viene denominato anche JCL-CODE.

Le parti che interessano il collegamento con il MENU sono contrassegnate con *> MENU.

000001 IDENTIFICATION DIVISION.
000002*
000003*
000004*
000005 PROGRAM-ID.        PROG-1.
000006*
000007 ENVIRONMENT DIVISION.
000008*
000009*
000010 CONFIGURATION SECTION.
000011*
000012 SOURCE-COMPUTER.           I386-PC.
000013 OBJECT-COMPUTER.           I386-PC.
000014/
000015 INPUT-OUTPUT SECTION.
000016*
000017 FILE-CONTROL.
000018*                      
000019*
000020*
000021     SELECT F01 ASSIGN TO DISC
000022            F-NOME-F01                                *> MENU
000023                         ORGANIZATION     INDEXED
000024                         ACCESS           DYNAMIC
000025                         RECORD KEY       F01KEY
000026                         FILE STATUS      ERF01.
000027*
000028*
000029*
000030     SELECT LO ASSIGN TO PRINTER
000031            F-NOME-F80.                               *> MENU
000032/
000033 DATA DIVISION.
000034 FILE SECTION.
000035*
000036*
000037*
000038 FD      F01
000039                     LABEL RECORD        STANDARD.
000040*
000041 01  F01REC.
000042  02 F01KEY.
000043  03 F0101    PIC 9(2)      COMP-6. 
000044  02 F0102    PIC X(20).
000045/
000046*
000047*
000048*
000049 FD     LO        BLOCK 132
000050                  RECORD 132
000051                  LABEL RECORD OMITTED.
000052*
000053*
000054*
000055 1     RIGA       PIC X(132).
000056/
000057 WORKING-STORAGE SECTION.
000058*
000059*
000060 1      PROGRAMMA.
000061  2     FILLER    PIC  X(08)     VALUE "PROGR-1-".
000062  2     VE        PIC  XX        VALUE "01".
000063  2     FILLER    PIC  X         VALUE "-".
000064  2     COMPILATO PIC  9(6).
000065*
000066 78     DATE-COMP                VALUE IS DATE-COMPILED.
000067*
000068*         STATUS FILES.
000069*
000070 1    TXE.
000071  2   FILLER     PIC X(14)       VALUE "Error on file ".
000072  2   FILEN      PIC X(12).
000073 1    TXE1.
000074  2   FILLER     PIC X(14)       VALUE "Status is  ".
000075  2   FILESTEX.
000076  3   FILEST     PIC XX.
000077  3   FILLER     PIC XX.
000078*
000079*
000080 1    WC         PIC XX          VALUE "00".
000081 1    SLF        PIC  9.
000082*
000083 1    ERF01      PIC   XX.
000084*
000085*
000086 1   RM-CALL-W.                                       *> MENU
000087  2  RM-CALL-JCL    PIC 9.
000088  2  F-NOME-TAB.
000089  3  F-NOME-POSTEN  PIC X(12)  OCCURS 80.
000090  2  F-NOME-TABX REDEFINES F-NOME-TAB.
000091  3  F-NOME-F01 PIC X(12).
000092  3  F-NOME-F02 PIC X(12).
000093  3  F-NOME-F03 PIC X(12).
000094  3  F-NOME-F04 PIC X(12).
000095  3  F-NOME-F05 PIC X(12).
000096  3  F-NOME-F06 PIC X(12).
000097  3  F-NOME-F07 PIC X(12).
000098  3  F-NOME-F08 PIC X(12).
000099  3  F-NOME-F09 PIC X(12).
000100  3  F-NOME-F10 PIC X(12).
000101  3  F-NOME-F11 PIC X(12).
000102  3  F-NOME-F12 PIC X(12).
000103  3  F-NOME-F13 PIC X(12).
000104  3  F-NOME-F14 PIC X(12).
000105  3  F-NOME-F15 PIC X(12).
000106  3  F-NOME-F16 PIC X(12).
000107  3  F-NOME-F17 PIC X(12).
000108  3  F-NOME-F18 PIC X(12).
000109  3  F-NOME-F19 PIC X(12).
000110  3  F-NOME-F20 PIC X(12).
000111  3  F-NOME-F21 PIC X(12).
000112  3  F-NOME-F22 PIC X(12).
000113  3  F-NOME-F23 PIC X(12).
000114  3  F-NOME-F24 PIC X(12).
000115  3  F-NOME-F25 PIC X(12).
000116  3  F-NOME-F26 PIC X(12).
000117  3  F-NOME-F27 PIC X(12).
000118  3  F-NOME-F28 PIC X(12).
000119  3  F-NOME-F29 PIC X(12).
000120  3  F-NOME-F30 PIC X(12).
000121  3  F-NOME-F31 PIC X(12).
000122  3  F-NOME-F32 PIC X(12).
000123  3  F-NOME-F33 PIC X(12).
000124  3  F-NOME-F34 PIC X(12).
000125  3  F-NOME-F35 PIC X(12).
000126  3  F-NOME-F36 PIC X(12).
000127  3  F-NOME-F37 PIC X(12).
000128  3  F-NOME-F38 PIC X(12).
000129  3  F-NOME-F39 PIC X(12).
000130  3  F-NOME-F40 PIC X(12).
000131  3  F-NOME-F41 PIC X(12).
000132  3  F-NOME-F42 PIC X(12).
000133  3  F-NOME-F43 PIC X(12).
000134  3  F-NOME-F44 PIC X(12).
000135  3  F-NOME-F45 PIC X(12).
000136  3  F-NOME-F46 PIC X(12).
000137  3  F-NOME-F47 PIC X(12).
000138  3  F-NOME-F48 PIC X(12).
000139  3  F-NOME-F49 PIC X(12).
000140  3  F-NOME-F50 PIC X(12).
000141  3  F-NOME-F51 PIC X(12).
000142  3  F-NOME-F52 PIC X(12).
000143  3  F-NOME-F53 PIC X(12).
000144  3  F-NOME-F54 PIC X(12).
000145  3  F-NOME-F55 PIC X(12).
000146  3  F-NOME-F56 PIC X(12).
000147  3  F-NOME-F57 PIC X(12).
000148  3  F-NOME-F58 PIC X(12).
000149  3  F-NOME-F59 PIC X(12).
000150  3  F-NOME-F60 PIC X(12).
000151  3  F-NOME-F61 PIC X(12).
000152  3  F-NOME-F62 PIC X(12).
000153  3  F-NOME-F63 PIC X(12).
000154  3  F-NOME-F64 PIC X(12).
000155  3  F-NOME-F65 PIC X(12).
000156  3  F-NOME-F66 PIC X(12).
000157  3  F-NOME-F67 PIC X(12).
000158  3  F-NOME-F68 PIC X(12).
000159  3  F-NOME-F69 PIC X(12).
000160  3  F-NOME-F70 PIC X(12).
000161  3  F-NOME-F71 PIC X(12).
000162  3  F-NOME-F72 PIC X(12).
000163  3  F-NOME-F73 PIC X(12).
000164  3  F-NOME-F74 PIC X(12).
000165  3  F-NOME-F75 PIC X(12).
000166  3  F-NOME-F76 PIC X(12).
000167  3  F-NOME-F77 PIC X(12).
000168  3  F-NOME-F78 PIC X(12).
000169  3  F-NOME-F79 PIC X(12).
000170  3  F-NOME-F80 PIC X(12).
000171*
000172*
000173*
000174/
000175 LINKAGE SECTION.
000176*
000177*
000178*
000179 1   LINK-PARAMETRI.                            *> MENU
000180  2  JCL-CODE      PIC 9.
000181  2  LINK-NAME-TAB PIC X(960).
000182*
000183*
000184*
000185/
000186 PROCEDURE DIVISION USING LINK-PARAMETRI.       *> MENU
000187*
000188 DECLARATIVES.
000189*
000190*
000191 DEC01 SECTION.
000192     USE AFTER ERROR PROCEDURE F01.
000193 DEC0101.
000194      MOVE ERF01 TO FILEST.  MOVE F-NOME-F01      TO FILEN.
000195*
000196*
000197 END DECLARATIVES.
000198/
000199 CARICO-NOMI SECTION.                           *> MENU
000200*
000201 RMCONV-00.
000202*
000203     MOVE LINK-NAME-TAB TO F-NOME-TAB.
000204     MOVE 0             TO RM-CALL-JCL.
000205     MOVE DATE-COMP     TO COMPILATO.
000206*
000207/
000208 HAUPT SECTION.
000209*
000210*
000211*    
000212 A-1.
000213     EXIT.
000214*                     *** END PROGR-1.CBL ***

Come prelevare questi codici

Pagina successiva

Cobol in pratica