|
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: 5088 (0x13e0)
Types: TextFile
Notes: Mikados_K
Names: »LØNLISTE.K«
└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
└─⟦this⟧ »LØNLISTE.K«
PROGRAM LØNLISTE;
TYPE
PARMARRAY=PACKED ARRAY (1..39) OF CHAR;
VAR PARM:^PARMARRAY;
QUQ:^INTEGER;
FNAVN:STRING;
(*$P*)
PROCEDURE REGVEDL;
CONST MMEDARZ=281;
(*$IISFHEAD*)
MEDARZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MMEDARZ) OF INTEGER
END;
ARAR=PACKED ARRAY (-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
MEDARPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
TTIMER,
PTIMER :REAL;
MEDARBEJDERNR,
TAIJP :INTEGER;
NAVN :PACKED ARRAY (1..30) OF CHAR
END;
SYSPOST=RECORD
MINUTFAKTOR:ARRAY (1..5) OF REAL;
DAT1,DAT2:INTEGER
END;
SYSFILE=FILE OF SYSPOST;
VAR SF:SYSFILE;
LINES,IER:INTEGER;
MAF:ISF;
MAZ:MEDARZONE;
MAPOST:MEDARPOST;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$INEXTREC*)
(*$IPUTGET*)
(*$L+*)
(*$P*)
PROCEDURE ERROR(VAR FIL:FILNAVN);
BEGIN
WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);
ICLOSE(MAZ.H,MAF);
EXIT(REGVEDL)
END;
PROCEDURE OFEJL(VAR FIL:FILNAVN);
VAR I:INTEGER;
BEGIN
GOTOXY(1,20);
WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . 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(FIL);
CLEARSCREEN
END;
(*$P*)
PROCEDURE MAINTAIN;
VAR SUM1,SUM2:REAL;
BEGIN
SUM1:=0.0;SUM2:=0.0;
MAPOST.MEDARBEJDERNR:=0;
NEXTREC(MAZ.H,MAF,MAPOST.A);
IF (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN ERROR(MAZ.H.FILENAME)
ELSE IER:=0;
WHILE IER=0 DO
BEGIN
IF LINES MOD 72=0 THEN
BEGIN
WRITELN(LIST);
WRITELN(LIST);
WRITELN(LIST,'LØNLISTE',' ':54,'Dato',SF^.DAT1*10000.0+SF^.DAT2:8:-2);
WRITELN(LIST);
WRITELN(LIST,'MEDARBEJDER',' ':41,'LØNTIMER PRODUKTIVE');
WRITELN(LIST,'NUMMER',' ':5,'NAVN',' ':54,'TIMER');
LINES:=6
END;
LINES:=LINES+2;
WRITELN(LIST,MAPOST.MEDARBEJDERNR:6,' ':5,MAPOST.NAVN,MAPOST.TTIMER:19:2,
MAPOST.PTIMER:14:2);
WRITELN(LIST);
SUM1:=SUM1+MAPOST.TTIMER;
SUM2:=SUM2+MAPOST.PTIMER;
MAPOST.TTIMER:=0.0;
MAPOST.PTIMER:=0.0;
PUTREC(MAZ.H,MAF,MAPOST.A);
IF IER<>0 THEN ERROR(MAZ.H.FILENAME);
NEXTREC(MAZ.H,MAF,MAPOST.A)
END;
IF (IER<>-2) AND (IER<>-9) THEN ERROR(MAZ.H.FILENAME);
WRITELN(LIST,'SUM',' ':45,SUM1:12:2,SUM2:14:2)
END;
(*$P*)
BEGIN
CLEARSCREEN;
FNAVN:='SYSREG:P2:1:I';
REWRITE(SF,FNAVN);
SEEK(SF,1);
GET(SF);
MAZ.H.FILENAME:='MEDARREG';
FNAVN:='MEDARREG:P2:0000:I';
REWRITE(MAF,FNAVN);
IOPEN(MAZ.H,MAF,SKRIV);IF IER<>0 THEN OFEJL(MAZ.H.FILENAME);
LINES:=72;
MAINTAIN;
PAGE(LIST);
ICLOSE(MAZ.H,MAF);
WRITELN('ICLOSE ',IER)
END;
(*$P*)
BEGIN
REGVEDL;
FNAVN:=' ';
FNAVN(1):=PARM^(1);
CHAIN('L *1',CONCAT('HOVED:P2,',FNAVN),QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM LØNLISTE;«, l3=0x11}
0x0013…0019 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0019…0042 Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x0042…005b Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x005b…0071 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0071…0087 Line {l1=0x14, l2=» FNAVN:STRING;«, l3=0x14}
0x0087…008f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x008f…00a3 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x00a3…00b7 Line {l1=0x12, l2=»CONST MMEDARZ=281;«, l3=0x12}
0x00b7…00c6 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x00c6…00d8 Line {l1=0x10, l2=»MEDARZONE=RECORD«, l3=0x10}
0x00d8…00ec Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x00ec…0114 Line {l1=0x26, l2=» T:ARRAY(1..MMEDARZ) OF INTEGER«, l3=0x26}
0x0114…011a Line {l1=0x04, l2=»END;«, l3=0x04}
0x011a…0141 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x0141…015c Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x015c…016e Line {l1=0x10, l2=»MEDARPOST=RECORD«, l3=0x10}
0x016e…017e Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x017e…018b Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x018b…019b Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x019b…01aa Line {l1=0x0d, l2=» TTIMER,«, l3=0x0d}
0x01aa…01c6 Line {l1=0x1a, l2=» PTIMER :REAL;«, l3=0x1a}
0x01c6…01dc Line {l1=0x14, l2=» MEDARBEJDERNR,«, l3=0x14}
0x01dc…01fb Line {l1=0x1d, l2=» TAIJP :INTEGER;«, l3=0x1d}
0x01fb…022e Line {l1=0x31, l2=» NAVN :PACKED ARRAY (1..30) OF CHAR«, l3=0x31}
0x022e…0234 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0234…0244 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x0244…026d Line {l1=0x27, l2=» MINUTFAKTOR:ARRAY (1..5) OF REAL;«, l3=0x27}
0x026d…0286 Line {l1=0x17, l2=» DAT1,DAT2:INTEGER«, l3=0x17}
0x0286…028c Line {l1=0x04, l2=»END;«, l3=0x04}
0x028c…02a6 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x02a6…02b7 Line {l1=0x0f, l2=»VAR SF:SYSFILE;«, l3=0x0f}
0x02b7…02cf Line {l1=0x16, l2=» LINES,IER:INTEGER;«, l3=0x16}
0x02cf…02dd Line {l1=0x0c, l2=» MAF:ISF;«, l3=0x0c}
0x02dd…02f1 Line {l1=0x12, l2=» MAZ:MEDARZONE;«, l3=0x12}
0x02f1…0308 Line {l1=0x15, l2=» MAPOST:MEDARPOST;«, l3=0x15}
0x0308…0311 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0311…0324 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x0324…0331 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x0331…0341 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x0341…0351 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x0351…035f Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x035f…036e Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x036e…037c Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x037c…0385 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0385…038d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x038d…03b0 Line {l1=0x21, l2=»PROCEDURE ERROR(VAR FIL:FILNAVN);«, l3=0x21}
0x03b0…03b7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x03b7…03ec Line {l1=0x33, l2=» WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);«, l3=0x33}
0x03ec…0402 Line {l1=0x14, l2=» ICLOSE(MAZ.H,MAF);«, l3=0x14}
0x0402…0413 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x0413…0419 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0419…043c Line {l1=0x21, l2=»PROCEDURE OFEJL(VAR FIL:FILNAVN);«, l3=0x21}
0x043c…044c Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x044c…0453 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0453…0464 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x0464…04b3 Line {l1=0x4d, l2=» WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x4d}
0x04b3…04e3 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x04e3…051c Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x051c…0538 Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(FIL);«, l3=0x1a}
0x0538…0547 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x0547…054d Line {l1=0x04, l2=»END;«, l3=0x04}
0x054d…0555 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0555…056a Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x056a…057f Line {l1=0x13, l2=»VAR SUM1,SUM2:REAL;«, l3=0x13}
0x057f…0586 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0586…059e Line {l1=0x16, l2=» SUM1:=0.0;SUM2:=0.0;«, l3=0x16}
0x059e…05ba Line {l1=0x1a, l2=» MAPOST.MEDARBEJDERNR:=0;«, l3=0x1a}
0x05ba…05da Line {l1=0x1e, l2=» NEXTREC(MAZ.H,MAF,MAPOST.A);«, l3=0x1e}
0x05da…0621 Line {l1=0x45, l2=» IF (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN ERROR(MAZ.H.FILENAME)«, l3=0x45}
0x0621…0633 Line {l1=0x10, l2=» ELSE IER:=0;«, l3=0x10}
0x0633…0645 Line {l1=0x10, l2=» WHILE IER=0 DO«, l3=0x10}
0x0645…064e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x064e…066a Line {l1=0x1a, l2=» IF LINES MOD 72=0 THEN«, l3=0x1a}
0x066a…0675 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0675…068b Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
[…0x1…]
0x06a1…06ef Line {l1=0x4c, l2=» WRITELN(LIST,'LØNLISTE',' ':54,'Dato',SF^.DAT1*10000.0+SF^.DAT2:8:-2);«, l3=0x4c}
0x06ef…0705 Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x0705…0749 Line {l1=0x42, l2=» WRITELN(LIST,'MEDARBEJDER',' ':41,'LØNTIMER PRODUKTIVE');«, l3=0x42}
0x0749…0784 Line {l1=0x39, l2=» WRITELN(LIST,'NUMMER',' ':5,'NAVN',' ':54,'TIMER');«, l3=0x39}
0x0784…0794 Line {l1=0x0e, l2=» LINES:=6«, l3=0x0e}
0x0794…079e Line {l1=0x08, l2=» END;«, l3=0x08}
0x079e…07b3 Line {l1=0x13, l2=» LINES:=LINES+2;«, l3=0x13}
0x07b3…0802 Line {l1=0x4d, l2=» WRITELN(LIST,MAPOST.MEDARBEJDERNR:6,' ':5,MAPOST.NAVN,MAPOST.TTIMER:19:2,«, l3=0x4d}
0x0802…0829 Line {l1=0x25, l2=» MAPOST.PTIMER:14:2);«, l3=0x25}
0x0829…083d Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x083d…085c Line {l1=0x1d, l2=» SUM1:=SUM1+MAPOST.TTIMER;«, l3=0x1d}
0x085c…087b Line {l1=0x1d, l2=» SUM2:=SUM2+MAPOST.PTIMER;«, l3=0x1d}
0x087b…0894 Line {l1=0x17, l2=» MAPOST.TTIMER:=0.0;«, l3=0x17}
0x0894…08ad Line {l1=0x17, l2=» MAPOST.PTIMER:=0.0;«, l3=0x17}
0x08ad…08ce Line {l1=0x1f, l2=» PUTREC(MAZ.H,MAF,MAPOST.A);«, l3=0x1f}
0x08ce…08f9 Line {l1=0x29, l2=» IF IER<>0 THEN ERROR(MAZ.H.FILENAME);«, l3=0x29}
0x08f9…091a Line {l1=0x1f, l2=» NEXTREC(MAZ.H,MAF,MAPOST.A)«, l3=0x1f}
0x091a…0922 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0922…095c Line {l1=0x38, l2=» IF (IER<>-2) AND (IER<>-9) THEN ERROR(MAZ.H.FILENAME);«, l3=0x38}
0x095c…098e Line {l1=0x30, l2=» WRITELN(LIST,'SUM',' ':45,SUM1:12:2,SUM2:14:2)«, l3=0x30}
0x098e…0994 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0994…099c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x099c…09a3 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x09a3…09b3 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x09b3…09b6 Line {l1=0x01, l2=» «, l3=0x01}
0x09b6…09d1 Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x09d1…09e7 Line {l1=0x14, l2=» REWRITE(SF,FNAVN);«, l3=0x14}
0x09e7…09f6 Line {l1=0x0d, l2=» SEEK(SF,1);«, l3=0x0d}
0x09f6…0a02 Line {l1=0x0a, l2=» GET(SF);«, l3=0x0a}
0x0a02…0a21 Line {l1=0x1d, l2=» MAZ.H.FILENAME:='MEDARREG';«, l3=0x1d}
0x0a21…0a41 Line {l1=0x1e, l2=» FNAVN:='MEDARREG:P2:0000:I';«, l3=0x1e}
0x0a41…0a58 Line {l1=0x15, l2=» REWRITE(MAF,FNAVN);«, l3=0x15}
0x0a58…0a98 Line {l1=0x3e, l2=» IOPEN(MAZ.H,MAF,SKRIV);IF IER<>0 THEN OFEJL(MAZ.H.FILENAME);«, l3=0x3e}
0x0a98…0aa6 Line {l1=0x0c, l2=» LINES:=72;«, l3=0x0c}
0x0aa6…0ab3 Line {l1=0x0b, l2=» MAINTAIN;«, l3=0x0b}
0x0ab3…0ac2 Line {l1=0x0d, l2=» PAGE(LIST);«, l3=0x0d}
0x0ac2…0ad8 Line {l1=0x14, l2=» ICLOSE(MAZ.H,MAF);«, l3=0x14}
0x0ad8…0af2 Line {l1=0x18, l2=» WRITELN('ICLOSE ',IER)«, l3=0x18}
0x0af2…0af8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0af8…0b00 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0b00…0b07 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0b07…0b13 Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0x0b13…0b22 Line {l1=0x0d, l2=» FNAVN:=' ';«, l3=0x0d}
0x0b22…0b39 Line {l1=0x15, l2=» FNAVN(1):=PARM^(1);«, l3=0x15}
0x0b39…0b6f Line {l1=0x34, l2=» CHAIN('L *1',CONCAT('HOVED:P2,',FNAVN),QUQ);«, l3=0x34}
0x0b6f…0ba4 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x0ba4…0baa Line {l1=0x04, l2=»END.«, l3=0x04}
0x0baa…0bc0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccc┆
0x0bc0…0be0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x3f…]
0x13c0…13e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 4c ┆cccccccccccccccccccccccccccccccL┆