Cobol addizzionare giorni ad 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

Aggiunta di un numero di giorni ad una data.

Questa semplice routine serve per il calcolo di una data risultante dall’aggiunta di un numero di giorni ad una data.

Parte relativa alla Working-Storage Section.

000001*
000002*
000003*
000004*             Tabella giorni mese
000005*
000006 1   TABG.
000007  2  FILLER      PIC  99     VALUE   31.  *> Gennaio
000008  2  FILLER      PIC  99     VALUE   28.  *> Febbraio
000009  2  FILLER      PIC  99     VALUE   31.  *> Marzo
000010  2  FILLER      PIC  99     VALUE   30.  *> Aprile
000011  2  FILLER      PIC  99     VALUE   31.  *> Magggio
000012  2  FILLER      PIC  99     VALUE   30.  *> Giugno
000013  2  FILLER      PIC  99     VALUE   31.  *> Luglio
000014  2  FILLER      PIC  99     VALUE   31.  *> Agosto
000015  2  FILLER      PIC  99     VALUE   30.  *> Settembre
000016  2  FILLER      PIC  99     VALUE   31.  *> Ottobre
000017  2  FILLER      PIC  99     VALUE   30.  *> Novembre
000018  2  FILLER      PIC  99     VALUE   31.  *> Dicembre
000019*
000020 1   GTABX   REDEFINES  TABG.
000021  2  GTAB    PIC 99 OCCURS 12.
000022*
000023*
000024 1   DAT-IN      PIC     9(6).
000025 1   DAT-INX     REDEFINES  DAT-IN.
000026  2  GIN     PIC  99.
000027  2  MIN     PIC  99.
000028  2  AIN     PIC  99.
000029*
000030*
000031*
000032 1   DAT-OUT     PIC     9(6).
000033 1   DAT-OUTX    REDEFINES DAT-OUT.
000034  2  GOU     PIC  99.
000035  2  MOU     PIC  99.
000036  2  AOU     PIC  99.
000037*
000038*
000039*
000040 1   ADAY    PIC  9(5).
000041 1   RDAY    PIC  9(5).
000042 1   HDAY    PIC  9(5).
000043 1   WDAY    PIC  9(5).
000044 1   TDAY    PIC  9(6).
000045 1   DREST   PIC  9.
000046 1   DQUOZ   PIC  99.

I campi utilizzati sono:

DAT-IN per la data di partenza nel formato ggmmaa.
ADAY per il numero di giorni da aggiungere.
DAT-OUT è il campo della data risultante nel formato ggmmaa.

Questa è la routine della Procedure Division.

000001*
000002*                 Aggiungere N giorni ad una data
000003*
000004*            DAT-IN   = DATA INPUT GGMMAA
000005*            DAT-OUT  = DATA OUTPUT GGMMAA
000006*
000007*            ADAY = Giorni di aggiungere (non viene mutato)
000008*            RDAY = Resto giorni di aggiungere (lavoro)
000009*            WDAY = Campo di lavoro
000010*            HDAY = Giorni di mese di calcolo (lavoro)
000011 DAY-ADD.
000012     MOVE DAT-IN TO  DAT-OUT.
000013     MOVE 0      TO  WDAY HDAY.
000014     MOVE ADAY   TO  RDAY.
000015*
000016*            Se resto + giorni non >  giorni mesi
000017 DA10.
000018     MOVE  GTAB(MOU) TO   HDAY.
000019     IF  MOU = 2     PERFORM  DA50  THRU DA60.
000020*
000021     ADD GOU RDAY  GIVING  WDAY.
000022     IF  WDAY >  HDAY    GO  DA20.
000023*
000024     MOVE WDAY TO  GOU.
000025     GO   DAY-ADDE.
000026*
000027*        Incremento  mese - anno
000028*
000029 DA20.
000030     SUBTRACT GOU  FROM HDAY GIVING WDAY.
000031     ADD  1 TO WDAY.
000032     SUBTRACT WDAY FROM RDAY.
000033     ADD  1 TO MOU.
000034     MOVE 1 TO GOU.
000035     IF MOU > 12  MOVE  1 TO MOU
000036                  ADD   1 TO AOU.
000037     GO  DA10.
000038*
000039*          
000040 DAY-ADDE.
000041     EXIT.
000042*
000043*
000044*
000045*             Trattamento se anno bisestile
000046*
000048 DA50.
000049     MOVE  0 TO DREST.
000050     DIVIDE  AOU  BY 4  GIVING DQUOZ  REMAINDER  DREST.
000051     IF DREST = 0    ADD 1 TO  HDAY.
000052*
000053 DA60.
000054     EXIT.
000055*

Come prelevare questi codici

Pagina precedente

Pagina successiva

Cobol in pratica

Aggiunta di un numero di giorni ad una data.