|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3744 (0xea0)
Types: TextFile
Notes: Mikados_K
Names: »RAIORDRE.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »RAIORDRE.K«
PROGRAM KUNDRESTORDREOVERSIGT;
(*$IISFHEAD*)
VPOST=RECORD
A :AR;
HELTAL:ARRAY (1..11) OF INTEGER;
(*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,
DATSORD2,DÆKGRASÅ,ANAFTILG*)
NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;
(*VARENAVN,NAVNHOSLEVERANDØR*)
REELTAL :ARRAY (1..15) OF REAL
(*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,
RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)
END;
KPOST=RECORD
A:AR;
NR:ARRAY (1..23) OF INTEGER;
NAVN: ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;
LANDSBY:PACKED ARRAY (1..20) OF CHAR;
POSTNR:PACKED ARRAY (1..25) OF CHAR;
TLF:PACKED ARRAY (1..10) OF CHAR;
SALDOKØB:ARRAY (1..9) OF REAL
END;
VZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..451) OF INTEGER
END;
KZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
RORPOST=RECORD
A:AR;
(* KNR1,KNR2,
VNR,
DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;
ANTAL:REAL
END;
RORZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..302) OF INTEGER
END;
SYSPOST=RECORD
(*DATO1,DATO2,
UGENR,
MAXEXC,
ORDRENR1-2,
FAKTNR1-2,
KREDNTNR1-2,
BILAGSNR1-2,JOURFILNR,MOMS*) HELTAL: ARRAY (1..14) OF INTEGER;
BETADAT:PACKED ARRAY (1..13) OF CHAR;
(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR
END;
SYSFILE=FILE OF SYSPOST;
VAR FVAR,FKUN,FROR:ISF;
VZ:VZONE;
KZ:KZONE;
RZ:RORZONE;
KUNDE:KPOST;
VARE:VPOST;
RESTORD:RORPOST;
SYSFIL:SYSFILE;
KNAVN:STRING(4);
FNAVN:STRING(20);
IER,RIER,O1,O2,I:INTEGER;
R1,R2,R:REAL;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IDELETE*)
(*$IREPORT*)
(*$R+*)
(*$L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(VZ.H,FVAR);
ICLOSE(RZ.H,FROR);
WRITELN('ICLOSE ',IER);
I:=I DIV 0
END;
PROCEDURE OFEJL;
BEGIN
GOTOXY(1,20);
WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');
WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');
REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;
IF I<>0 THEN ERROR;
CLEARSCREEN
END;
BEGIN
CLEARSCREEN;
FNAVN:='REGVARE:P1:0000:I';
REWRITE(FVAR,FNAVN);
IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN OFEJL;
FNAVN:='RESTREG:P2:0000:I';
REWRITE(FROR,FNAVN);
IOPEN(RZ.H,FROR,LÆS);IF IER<>0 THEN OFEJL;
RESTORD.HEAD(1):=0;
RESTORD.HEAD(2):=0;
RESTORD.HEAD(3):=0;
NEXTREC(RZ.H,FROR,RESTORD.A);
REPEAT
VARE.HELTAL(1):=RESTORD.HEAD(3);
GETREC(VZ.H,FVAR,VARE.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR;
IF IER=0 THEN
BEGIN
VARE.REELTAL(9):=VARE.REELTAL(9)+RESTORD.ANTAL;
PUTREC(VZ.H,FVAR,VARE.A);
IF IER<>0 THEN ERROR;
END;
NEXTREC(RZ.H,FROR,RESTORD.A);
UNTIL (IER<>0);
WRITELN(LIST,RESTORD.HEAD(1):8,RESTORD.HEAD(2):8,RESTORD.HEAD(3):8);
IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN ERROR;
ICLOSE(VZ.H,FVAR);
ICLOSE(RZ.H,FROR);
END.
0x000…020 Line {l1=0x1e, l2=»PROGRAM KUNDRESTORDREOVERSIGT;«, l3=0x1e}
0x020…030 Line {l1=0x0e, l2=» (*$IISFHEAD*)«, l3=0x0e}
0x030…03f Line {l1=0x0d, l2=» VPOST=RECORD«, l3=0x0d}
0x03f…055 Line {l1=0x14, l2=» A :AR;«, l3=0x14}
0x055…07f Line {l1=0x28, l2=» HELTAL:ARRAY (1..11) OF INTEGER;«, l3=0x28}
0x07f…0c8 Line {l1=0x47, l2=» (*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,«, l3=0x47}
0x0c8…0e9 Line {l1=0x1f, l2=» DATSORD2,DÆKGRASÅ,ANAFTILG*)«, l3=0x1f}
0x0e9…124 Line {l1=0x39, l2=» NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;«, l3=0x39}
0x124…145 Line {l1=0x1f, l2=» (*VARENAVN,NAVNHOSLEVERANDØR*)«, l3=0x1f}
0x145…16d Line {l1=0x26, l2=» REELTAL :ARRAY (1..15) OF REAL«, l3=0x26}
0x16d…1b3 Line {l1=0x44, l2=» (*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x44}
0x1b3…1f7 Line {l1=0x42, l2=» RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)«, l3=0x42}
0x1f7…1ff Line {l1=0x06, l2=» END;«, l3=0x06}
0x1ff…20d Line {l1=0x0c, l2=»KPOST=RECORD«, l3=0x0c}
0x20d…21b Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x21b…240 Line {l1=0x23, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x23}
0x240…27c Line {l1=0x3a, l2=» NAVN: ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x27c…2aa Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x2aa…2d7 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x2d7…301 Line {l1=0x28, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x28}
0x301…327 Line {l1=0x24, l2=» SALDOKØB:ARRAY (1..9) OF REAL«, l3=0x24}
0x327…32d Line {l1=0x04, l2=»END;«, l3=0x04}
0x32d…33d Line {l1=0x0e, l2=» VZONE= RECORD«, l3=0x0e}
0x33d…351 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x351…375 Line {l1=0x22, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x22}
0x375…37d Line {l1=0x06, l2=» END;«, l3=0x06}
0x37d…38b Line {l1=0x0c, l2=»KZONE=RECORD«, l3=0x0c}
0x38b…39e Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x39e…3c1 Line {l1=0x21, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x21}
0x3c1…3c7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3c7…3d8 Line {l1=0x0f, l2=» RORPOST=RECORD«, l3=0x0f}
0x3d8…3e7 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x3e7…3fb Line {l1=0x12, l2=» (* KNR1,KNR2,«, l3=0x12}
0x3fb…409 Line {l1=0x0c, l2=» VNR,«, l3=0x0c}
0x409…444 Line {l1=0x39, l2=» DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;«, l3=0x39}
0x444…458 Line {l1=0x12, l2=» ANTAL:REAL«, l3=0x12}
0x458…460 Line {l1=0x06, l2=» END;«, l3=0x06}
0x460…471 Line {l1=0x0f, l2=» RORZONE=RECORD«, l3=0x0f}
0x471…485 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x485…4a9 Line {l1=0x22, l2=» T:ARRAY(1..302) OF INTEGER«, l3=0x22}
0x4a9…4b1 Line {l1=0x06, l2=» END;«, l3=0x06}
0x4b1…4c1 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x4c1…4d1 Line {l1=0x0e, l2=»(*DATO1,DATO2,«, l3=0x0e}
0x4d1…4db Line {l1=0x08, l2=» UGENR,«, l3=0x08}
0x4db…4e6 Line {l1=0x09, l2=» MAXEXC,«, l3=0x09}
0x4e6…4f5 Line {l1=0x0d, l2=» ORDRENR1-2,«, l3=0x0d}
0x4f5…503 Line {l1=0x0c, l2=» FAKTNR1-2,«, l3=0x0c}
0x503…513 Line {l1=0x0e, l2=» KREDNTNR1-2,«, l3=0x0e}
0x513…555 Line {l1=0x40, l2=» BILAGSNR1-2,JOURFILNR,MOMS*) HELTAL: ARRAY (1..14) OF INTEGER;«, l3=0x40}
0x555…57e Line {l1=0x27, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x27}
0x57e…5c5 Line {l1=0x45, l2=»(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x45}
0x5c5…5cb Line {l1=0x04, l2=»END;«, l3=0x04}
0x5cb…5e5 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x5e5…5e9 Line {l1=0x02, l2=» «, l3=0x02}
[…0x1…]
0x5ed…606 Line {l1=0x17, l2=»VAR FVAR,FKUN,FROR:ISF;«, l3=0x17}
0x606…615 Line {l1=0x0d, l2=» VZ:VZONE;«, l3=0x0d}
0x615…624 Line {l1=0x0d, l2=» KZ:KZONE;«, l3=0x0d}
0x624…635 Line {l1=0x0f, l2=» RZ:RORZONE;«, l3=0x0f}
0x635…647 Line {l1=0x10, l2=» KUNDE:KPOST;«, l3=0x10}
0x647…658 Line {l1=0x0f, l2=» VARE:VPOST;«, l3=0x0f}
0x658…66e Line {l1=0x14, l2=» RESTORD:RORPOST;«, l3=0x14}
0x66e…683 Line {l1=0x13, l2=» SYSFIL:SYSFILE;«, l3=0x13}
0x683…699 Line {l1=0x14, l2=» KNAVN:STRING(4);«, l3=0x14}
0x699…6b0 Line {l1=0x15, l2=» FNAVN:STRING(20);«, l3=0x15}
0x6b0…6cf Line {l1=0x1d, l2=» IER,RIER,O1,O2,I:INTEGER;«, l3=0x1d}
0x6cf…6e2 Line {l1=0x11, l2=» R1,R2,R:REAL;«, l3=0x11}
0x6e2…6eb Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x6eb…6ff Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x6ff…70d Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x70d…71b Line {l1=0x0c, l2=» (*$ISÆTØG*)«, l3=0x0c}
0x71b…72c Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x72c…73d Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x73d…74d Line {l1=0x0e, l2=» (*$IFORSKYD*)«, l3=0x0e}
0x74d…75c Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x75c…76b Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x76b…77a Line {l1=0x0d, l2=» (*$IINSERT*)«, l3=0x0d}
0x77a…78a Line {l1=0x0e, l2=» (*$INEXTREC*)«, l3=0x0e}
0x78a…799 Line {l1=0x0d, l2=» (*$IDELETE*)«, l3=0x0d}
0x799…7a8 Line {l1=0x0d, l2=» (*$IREPORT*)«, l3=0x0d}
0x7a8…7b2 Line {l1=0x08, l2=» (*$R+*)«, l3=0x08}
0x7b2…7bb Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x7bb…7ce Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x7ce…7d6 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x7d6…7fb Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x7fb…812 Line {l1=0x15, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x15}
0x812…829 Line {l1=0x15, l2=» ICLOSE(RZ.H,FROR);«, l3=0x15}
0x829…845 Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x845…854 Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x854…85b Line {l1=0x05, l2=» END;«, l3=0x05}
0x85b…86d Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x86d…874 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x874…885 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x885…8ca Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x8ca…8fa Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x8fa…933 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x933…94a Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x94a…959 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x959…95f Line {l1=0x04, l2=»END;«, l3=0x04}
0x95f…966 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x966…976 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x976…995 Line {l1=0x1d, l2=» FNAVN:='REGVARE:P1:0000:I';«, l3=0x1d}
0x995…9ad Line {l1=0x16, l2=» REWRITE(FVAR,FNAVN);«, l3=0x16}
0x9ad…9dd Line {l1=0x2e, l2=» IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x9dd…9e0 Line {l1=0x01, l2=» «, l3=0x01}
0x9e0…9ff Line {l1=0x1d, l2=» FNAVN:='RESTREG:P2:0000:I';«, l3=0x1d}
0x9ff…a17 Line {l1=0x16, l2=» REWRITE(FROR,FNAVN);«, l3=0x16}
0xa17…a45 Line {l1=0x2c, l2=» IOPEN(RZ.H,FROR,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x2c}
0xa45…a60 Line {l1=0x19, l2=» RESTORD.HEAD(1):=0;«, l3=0x19}
0xa60…a7b Line {l1=0x19, l2=» RESTORD.HEAD(2):=0;«, l3=0x19}
0xa7b…a96 Line {l1=0x19, l2=» RESTORD.HEAD(3):=0;«, l3=0x19}
0xa96…abb Line {l1=0x23, l2=» NEXTREC(RZ.H,FROR,RESTORD.A);«, l3=0x23}
0xabb…ac4 Line {l1=0x07, l2=» REPEAT«, l3=0x07}
0xac4…ae7 Line {l1=0x21, l2=» VARE.HELTAL(1):=RESTORD.HEAD(3);«, l3=0x21}
0xae7…b03 Line {l1=0x1a, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x1a}
0xb03…b2b Line {l1=0x26, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR;«, l3=0x26}
0xb2b…b44 Line {l1=0x17, l2=» IF IER=0 THEN«, l3=0x17}
0xb44…b55 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xb55…b92 Line {l1=0x3b, l2=» VARE.REELTAL(9):=VARE.REELTAL(9)+RESTORD.ANTAL;«, l3=0x3b}
0xb92…bb9 Line {l1=0x25, l2=» PUTREC(VZ.H,FVAR,VARE.A);«, l3=0x25}
0xbb9…bdc Line {l1=0x21, l2=» IF IER<>0 THEN ERROR;«, l3=0x21}
0xbdc…bec Line {l1=0x0e, l2=» END;«, l3=0x0e}
0xbec…c17 Line {l1=0x29, l2=» NEXTREC(RZ.H,FROR,RESTORD.A);«, l3=0x29}
0xc17…c32 Line {l1=0x19, l2=» UNTIL (IER<>0);«, l3=0x19}
0xc32…c7e Line {l1=0x4a, l2=» WRITELN(LIST,RESTORD.HEAD(1):8,RESTORD.HEAD(2):8,RESTORD.HEAD(3):8);«, l3=0x4a}
0xc7e…cbd Line {l1=0x3d, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN ERROR;«, l3=0x3d}
0xcbd…cd6 Line {l1=0x17, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x17}
0xcd6…cef Line {l1=0x17, l2=» ICLOSE(RZ.H,FROR);«, l3=0x17}
0xcef…cf5 Line {l1=0x04, l2=»END.«, l3=0x04}
0xcf5…d00 00 00 43 4c 4f 53 45 28 52 5a 2e ┆ CLOSE(RZ.┆
0xd00…d20 48 2c 46 52 4f 52 29 3b 17 04 45 4e 44 2e 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆H,FROR); END. ┆
0xd20…d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xb…]