|
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.
0x000…001 0x60
0x001…002 0x09
0x002…003 0xc1
0x003…044 »Modulplan er designed ud fra datoformatet dag-m}ned-}r, som enten«
0x044…045 0x16
0x045…046 0x09
0x046…047 0xc4
0x047…08b »skal v{re systemdatoformat eller i hvert fald s{ttes for den enkelte«
0x08b…08c 0x13
0x08c…08d 0x09
0x08d…08e 0x86
0x08e…094 »sk{rm.«
0x094…095 0x51
0x095…096 0x09
0x096…097 0xbe
0x097…0d5 »Dette g{lder for alle indtastede datoer, uanset at formatet p}«
0x0d5…0d6 0x19
0x0d6…0d7 0x09
0x0d7…0d8 0xb5
0x0d8…10d »disk er }r-m}ned-dag (af hensyn til sortering m. m.).«
0x10d…10e 0x22
0x10e…10f 0x09
0x10f…110 0xc4
0x110…154 »Hvis formatet er forkert vil mange programmer give forkert resultat.«
0x154…155 0x13
0x155…156 0x60
0x156…157 0x09
0x157…158 0x9a
0x158…172 »Tilf¦jelse pr. 31/12 1984.«
0x172…173 0x3d
0x173…174 0x60
0x174…175 0x09
0x175…176 0xc3
0x176…1b9 »Include procedure DATOFMT i xxMPO, og kald den som f¦rste statement«
0x1b9…1ba 0x14
0x1ba…1bb 0x09
0x1bb…1bc 0xa0
0x1bc…1dc »i vitale procedurer som f. eks.:«
0x1dc…1dd 0x37
0x1dd…1de 0x09
0x1de…1df 0x88
0x1df…1e7 »DEBFORF,«
0x1e7…1e8 0x02
0x1e8…1e9 0x88
0x1e9…1f1 »DEBLIKV,«
0x1f1…1f2 0x02
0x1f2…1f3 0xb0
0x1f3…223 »DEBREG, DEBRNTxx, DEBRYK, DEBUDL, DEB160, DEB170«
0x223…224 0x13
0x224…225 0x09
0x225…226 0xbe
0x226…264 »FAKINPxx, FAK400xx, FAK500, KREBETxx, KRELIKV, KREREG, KREUDL,«
0x264…265 0x19
0x265…266 0x09
0x266…267 0xbf
0x267…2a6 »LAGINKxx, LAGINPxx, SLUTTExx, STKDET, STSDET, STVDET og SYS001.«
0x2a6…2a7 0x18
0x2a7…2a8 0x60
0x2a8…2a9 0x09
0x2a9…2aa 0x9a
0x2aa…2c4 »proceduren ser s}ledes ud:«
0x2c4…2c5 0x3d
0x2c5…2c6 0x60
0x2c6…2c7 0xa1
0x2c7…2e8 »// LOCAL OFFSET-451,DATA-'?DATE?'«
0x2e8…2e9 0x3f
0x2e9…2ea 0xbc
0x2ea…326 »// IF 32>?L'451,2'? IF 13>?L'453,2'? IF ?L'455,2'?>84 RETURN«
0x326…327 0x24
0x327…328 0xc0
0x328…368 »// * 'SK#RMENS DATO(FORMAT) ER FORKERT| `SET` DEN RIGTIGT (DMY)'«
0x368…369 0x20
0x369…36a 0x97
0x36a…381 »// WAIT INTERVAL-000004«
0x381…382 0x49
0x382…383 0x89
0x383…38c »// CANCEL«
0x38c…38d 0x57
0x38d…38e 0xc7
0x38e…3d5 »* Modulplan kr{ver at datoen har formatet dag-m}ned-}r, desuden checkes«
0x3d5…3d6 0x19
0x3d6…3d7 0x9e
0x3d7…3f5 »* at }rstallet er mindst 1985.«
0x3f5…3f6 0x42
0x3f6…3f7 0x00
0x3f7…400 c5 c7 6b 40 c4 c5 c2 d9 d5 ┆EG, DEBRN┆