Cobol e verifica plausibilità di una data

Altre pagine:
	1] Plausibilità date
	2] Aggiunta di un numero di giorni ad una data
	3] Calcolo della differenza in giorni tra due date

Verifica della plausibilità di una data

Spesso capita di dover immettere a video una data.
A volte tale data ha uno scopo unicamente informativo senza alcuna influenza sul processo di elaborazione.
A mio parere anche queste date dovrebbero avere un valore consistente onde evitare di far apparire delle date del genere: 31.11.06 30.02.07 o peggio ancora 35.01.06 00.04.06.

Questa semplice routine si occupa del controllo della plausibilità della data tenendo conto anche degli anni bisestili.

Questa è la parte relativa alla WORKING-STORAGE SECTION :

Il campo NU9 serve per l’immissione della data da verificare.

Essa va immessa nel formato GGMMAA.

000001*         Campi per il test della data
000002*
000003*
000004 01  WZ1     PIC 99.
000005 01  WZ2     PIC 99.
000006 01  WSP     PIC 99.
000007*
000008*
000009 01  SWI     PIC 99.
000010*
000011*
000012*
000013*
000014 01  NX9.
000015     02  NU91            PIC 99  OCCURS 3 TIMES.
000016 01  NU9  REDEFINES NX9  PIC 9(6).
000017*
000018*
000019 77  HF1                 PIC 99.
000020 77  HF2                 PIC 9.
000021*
000022*

Questa è la parte relativa alla PROCEDURE DIVISION :

Dopo l’esecuzione della routine il campo SWI contiene un valore zero se la data immessa è valevole, un valore 1 nel caso contrario.

000001*                      Test della data
000002*                      ---------------
000003*
000004*
000005*
000006 DATT.
000007         IF      NU91(1) < 1     GO  DT09.
000008         IF      NU91(2) < 1     GO  DT09.
000009         IF      NU91(2) > 12    GO  DT09.
000010         IF      NU91(2) NOT = 2 GO  DT02.
000011         DIVIDE  NU91(3) BY 4 GIVING
000012                 HF1 REMAINDER HF2.
000013         IF      HF2 NOT = 0     GO  DT01.
000014         IF      NU91(1) > 29    GO  DT09.
000015         GO      TO DT04.
000016*
000017 DT01.
000018         IF      NU91(1) > 28    GO  DT09.
000019         GO      TO DT04.
000020*
000021 DT02.
000022         IF  NU91(2) =  4        GO  DT03.
000023         IF  NU91(2) =  6        GO  DT03.
000024         IF  NU91(2) =  9        GO  DT03.
000025         IF  NU91(2) = 11        GO  DT03.
000026         IF  NU91(1) > 31        GO  DT09.
000027         GO  TO DT04.
000028*
000029 DT03.
000030         IF      NU91(1) > 30    GO  DT09.
000031*
000032 DT04.
000033         MOVE    0 TO SWI
000034         GO      TO DT99.
000035*
000036 DT09.
000037         MOVE    1 TO SWI.
000038*
000039 DT99.
000040         EXIT.
000041*

Come prelevare questi codici

Pagina successiva

Cobol in pratica

Verifica della plausibilità di una data