|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1024 (0x400)
Notes: MEMBER_S, Member_Text
Names: »DATOFMT «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦b16ff4453⟧
└─⟦this⟧ ».DATOFMT «
Modulplan er designed ud fra datoformatet dag-m}ned-}r, som enten
skal v{re systemdatoformat eller i hvert fald s{ttes for den enkelte
sk{rm.
Dette g{lder for alle indtastede datoer, uanset at formatet p}
disk er }r-m}ned-dag (af hensyn til sortering m. m.).
Hvis formatet er forkert vil mange programmer give forkert resultat.
Tilf¦jelse pr. 31/12 1984.
Include procedure DATOFMT i xxMPO, og kald den som f¦rste statement
i vitale procedurer som f. eks.:
DEBFORF, DEBLIKV, DEBREG, DEBRNTxx, DEBRYK, DEBUDL, DEB160, DEB170
FAKINPxx, FAK400xx, FAK500, KREBETxx, KRELIKV, KREREG, KREUDL,
LAGINKxx, LAGINPxx, SLUTTExx, STKDET, STSDET, STVDET og SYS001.
proceduren ser s}ledes ud:
// LOCAL OFFSET-451,DATA-'?DATE?'
// IF 32>?L'451,2'? IF 13>?L'453,2'? IF ?L'455,2'?>84 RETURN
// * 'SK#RMENS DATO(FORMAT) ER FORKERT| `SET` DEN RIGTIGT (DMY)'
// WAIT INTERVAL-000004
// CANCEL
* Modulplan kr{ver at datoen har formatet dag-m}ned-}r, desuden checkes
* at }rstallet er mindst 1985.