|
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: 4096 (0x1000)
Notes: MEMBER_S, Member_Text
Names: »KRE550 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦b16ff4453⟧
└─⟦this⟧ ».KRE550 «
Samlergiro med ******** i bel¦bsfelt.
-------------------------------------
Postgirokontoret anerkender ikke giroblanketter uden bel¦b.
Hvis der er flere poster til en enkelt betaling end der kan
specificeres p} en blanket, vil denne rettelse fors¦ge at dele
betalingen op p} flere afsluttede blanketter.
Afh{ngig af kombinationen af posternes st¦rrelse og fortegn
kan det ikke altid lade sig g¦re at f} positive del-betalinger
ud af det. Der vil derfor i givet fald blive udskrevet en eller
flere giroblanketter med p}lydende 1 ¦re som vil blive fratrukket
den sidste, s} den samlede betaling bliver korrekt.
Eksempel: en kreditnota p} 500 kr. og 6 fakturaer p} hver 100 kr.
vil blive skrevet ud p} to giro`er p} henholdsvis 1 ¦re og 99,99 kr.
Rettelse pr. 31/12 1984:
{ndr FKPOS2 IF F 128 128 DISK
slet I* KEY TIL POSTER
slet I DS
slet I 1 9 K$KEY2
slet I 1 50PFNR
slet I 6 90PLIN
slet C Z-ADDFNR PFNR
slet C Z-ADD1 PLIN
slet C K$KEY2 SETLLKPOS2
C N41 GOTO TAG2A
C IX COMP 6 69 SKRIV SAMLER
add C EXSR POSPOS
C 69 EXCPTSAML VED FLERE END
C TAG2A TAG
C N42 GOTO TAG2Z
C IX COMP 4 69 SKRIV SUDB KORT
add C EXSR POSPOS
C 69 EXCPTGIRUDB VED FLERE END
C TAG2Z TAG
{ndr C SETOF 6968
C READ KPOS2 80
slet C N80 BETFOR COMP PFNR 8080
C TOTALK BEGSR
C SUMKRE SUB SUMKRB NETKRE 112
C ADD NETKRE SUMNET
C ADD 1 ANTUDB
slet C Z-ADDSUMKRB SUMKRB 6868
add C SETON 51
add C EXSR POSPOS
C 41 EXCPTSAML
C 42 EXCPTGIRUDB
C MOVE *BLANKS KB
C Z-ADD0 BL
slet C N41 GOTO TOTAK3
slet C OF SETON 66
slet C OF
slet CORN49 EXCPTOVERH
slet C SETOF OF66
slet C SETON 49
slet C EXCPTOVERL
slet C ADD NETKRE SUMOVS 112
slet C TOTAK3 TAG
C SETOF 68
C ENDSR
O 16 'OVERF@RT'
O SUMOVS1 31
O E 1 OVERL
{ndr O PARTTO1 31
O E 2 SAML
O 68 15 'Kontantrabat'
{ndr O 68 RABUD LB 26
O E 2 SAML
{ndr O PARTTO B 43 ' *&& '
slet O 69 43 '*************'
OGIROUDB E 04 GIRUDB
O E 1 GIRUDB
O 68 15 'Kontantrabat'
{ndr O 68 RABUD LB 26
.
.
{ndr O E 1 GIRUDB
{ndr O PARTTO B 17 ' *&& '
O *PLACE 42
O *PLACE 75
slet O E 1 69 GIRUDB
slet O 17 '*************'
slet O *PLACE 42
slet O *PLACE 75
OLISTE H 202 1P
Nedenst}ende subrutine indl{gges mellem de ¦vrige subrutiner
C*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* P O S P O S
C* -----------
C*
C POSPOS BEGSR
C 69 GOTO CLOSE
C N51 52
CORN51 GOTO DONE
C COUNT COMP 0 5050
C 50 GOTO CLOSE
C Z-SUBNETKRE PARTTO 112
C SUB ADDONE PARTTO
C Z-ADDSUMRAB RABUD 6868
C GOTO DONE
C CLOSE TAG
C COUNT COMP 0 50
C 50 GOTO ANOTH
C Z-ADDSUMRAB RABUD 92 6868
C Z-ADDSUMMA PARTTO
C ADD RABUD PARTTO 52
C Z-ADD0 SUMRAB 92
C 52 GOTO DONE
C ANOTH TAG
C ADD 1 COUNT
C ADD .01 ADDONE
C Z-ADD.01 PARTTO
C DONE TAG
C 69
COR 51 Z-ADD0 SUMMA 112
C 51 Z-ADD0 ADDONE 32
C 51 Z-ADD0 COUNT 30
C 51 Z-ADD0 SUMRAB 92
C N51 ADD RABATL SUMRAB
C N51 SUB BEL@B SUMMA
C N41 GOTO TOTAK3
C N51N69 GOTO TOTAK3
C OF SETON 66
C OF
CORN49 EXCPTOVERH
C SETOF OF66
C SETON 49
C EXCPTOVERL
C ADD PARTTO SUMOVS 112
C TOTAK3 TAG
C SETOF 51
C ENDSR
C*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
Endelig indl{gges en sortering til en hj{lpefile $$.KPOS3 i
procedure KREBET$$:
// TAG VALG3
// REGION SIZE-64 tilf¦jet
// LOAD #GSORT -
// FILE NAME-INPUT,LABEL-$$.KPOST,DISP-SHR -
// FILE NAME-OUTPUT,LABEL-$$.KPOS3,RECORDS-?F'A,$$.KPOST'?,RETAIN-J -
// RUN -
0001 HSORTR 17A 3X 128 -
0002 I C 114 118EQC?L'2,5'? -
0004 FNC 63 66 VALUTA -
0005 FND 1 8 LEVERAND@R -
0004 FND 23 23 DEBET-KREDIT -
0005 FND 119 122 LINIENR. -
0006 FDC 1 128 POST -
// END tilf¦jet
// * 'Godkendelse af forslag'
// LOAD KRE550
// FILE NAME-KPOS2,LABEL-$$.KPOS3,DISP-SHRRM {ndret