|
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: 1536 (0x600)
Notes: MEMBER_S, Member_Text
Names: »BOG211 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦1fc10e824⟧
└─⟦this⟧ ».BOG211 «
U B BOG211
H 14 D.J B 1 BOG211
F****************************************************************
F* *
F* AUTO SRT *
F* PROGRAM B O G 2 1 1 - MANGLENDE BILAGSNUMRE *
F* ----------- *
F* *
F* MANGLENDE NUMMERSERIER UDSKRIVES *
F* *
F* SEEBACH DATA APS 4/8 1988 *
F* *
F****************************************************************
FLISTE O 132 132 OF PRINTER
FPOS1 IP 234 78 14AI EXTK DISK
IPOS1 NS 20 1 CT
I 2 2 STAKOD
I 3 100KTOKEY
I 11 120POSTPR
I 13 180BILDAT
I 19 48 TEKST
I 49 582BEL@B
I 59 640BILAG
I 65 742BRUTTO
I 75 782MOMSPR
I NS 87
I UDS
I 1 60TIME
I 50 52 FIRMA
C 89 GOTO START
C Z-ADDBILAG GEMBIL 60
C BILAG IFGT 1 .IF
C Z-ADD1 B1 60
C EXSR FEJL
C END .END
C SETON 89
C GOTO SLUT
C*
C START TAG
C GEMBIL ADD 1 B1
C B1 IFLT BILAG .IF
C EXSR FEJL
C END .END
C Z-ADDBILAG GEMBIL 60
C*
C SLUT TAG
C*
CLR EXSR FEJL
C*
C FEJL BEGSR
C BILAG SUB 1 B2 60
C LR Z-ADD999999 B2
C B1 COMP B2 70 ENS
C EXCPTMGL
C ENDSR
C*
OLISTE H 202 1P
O OR OF
O 5 'DATO'
O UDATE Y 14
O 19 'KL'
O TIME Y 28
O 28 ' '
O 60 'FINANSBOGHOLDERI -'
O 74 'NUMMERKONTROL'
O FIRMA 89
O 125 'SIDE'
O PAGE Z 130
O EF11 MGL
O B1 Z 10
O N70 12 '-'
O N70 B2 Z 19
O 44 '*** BILAGSNR MANGLER ***'