|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 26966 (0x6956)
Notes: pts_type(SC)
Names: »RGFRMT.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/RGFRMT.SC«
IDENT RGFRMT 820901 NJ
DDUM KMD08
PDIV
ENTRY FRMTSP
ENTRY FRMXSP
ENTRY FMSTYR
INCLUDE EQUATE
FMSTYR PROC
********************
*
* FORMATS FOR CONTROLLING CHOICE OF
* HOVEDBOG, DEBITOR AND REMITTERING
*
********************
ATTFMT FMTSTR(TTSTYRDX)
RET
PEND
*
FRMTSP PROC
*
*******************
* ATTACHES A FORMAT FOR USE IN SCREEN PACKAGE
*
* USES GTREGDEX TO DETERMINE WHICH FORMAT TO USE
*
********************
*
ATTFMT SPFTB(GTREGDEX)
RET
PEND
*
FRMXSP PROC XSPDEX
*******************
*
* ATTACHES FORMATS FOR PAGE 2 AND 3
* FOR TRANSTYPES 8,9,51,53
* PLUS OTHER EXTRA FORMATS ON SCREEN
*
*******************
ATTFMT XSPFTB(XSPDEX)
RET
PEND
*
*
FMTSTR FTABLE STYRHB,STYRDB,STYRRM
*
********** INCLUDE FMT401
********** IN STEAD OF SPFTB
SPFTB FTABLE FRMT01,FRMT02,FRMT03,FRMT04,FRMT05, C
FRMT06,FRMT07,FRMT08,FRMT09,FRMT10, C
FRMT12,FRMT18,FRMT19,FRMT28,FRMT29
*
*
XSPFTB FTABLE FMT308,FMT309,FMTERR,FMTERR, C
FMTERR,FMTERR,FMT208,FMT208, C
FMTERR,FMTERR,XSPCY1,XSPKT1, C
XSPLIN
STYRHB FRMT
FSL
FTAB 4
FCOPY ='HOVEDBOG'
FLINK FCYST
FNL
FCOPY ='REGKONTONR'
FTAB 13
FCOPY ='CPR/CIR/NR'
FTAB 25
FCOPY ='YDELSESMODT'
FNL
FKI 1,MAXL=10,REWRT,APPL=80,DUPL=GTDUPF(CBIN1), C
SCHK=1,ME
FMEL 'XXXXXXXXE-XX',GTREGF(CBIN1)
FKI 13,MINL=7,MAXL=10,REWRT,APPL=81,DUPL=GTDUPF(CBIN2), C
SCHK=1
FMEL 'XXXXXXE-XXXX',GTREGF(CBIN2)
FKI 25,MINL=10,MAXL=10,REWRT,APPL=82,DUPL=GTDUPF(CBIN10), C
SCHK=1
FMEL 'XXXXXXE-XXXX',GTREGF(CBIN10)
FMEND
*
*
STYRDB FRMT
FSL
FTAB 4
FCOPY ='DEBITOR'
FTEXT ' POST.'
FLINK FCYST
FNL
FCOPY ='DEBITOR'
FILLR ' ',1
FTEXT 'NR'
FILLR ' ',2
FCOPY ='BET-ART'
FNL
FKI 1,MAXL=10,REWRT,APPL=83,DUPL=GTDUPF(CBIN2), C
SCHK=1,ME
FMEL 'XXXXXXE-XXXX',GTREGF(CBIN2)
FKI 13,MAXL=2,APPL=84,DUPL=GTDUPF(CBIN3),CTAB
FMELI 'XX',GTREGF(CBIN3)
FKI 15,MAXL=2,APPL=88,VERIF,REWRT
FMELI 'XX',GTREGF(CBIN3)
FMEND
*
*
STYRRM FRMT
FSL
FTAB 3
FCOPY =' REMITTERING'
FLINK FCYST
FNL
FCOPY ='REGKONTONR'
FTAB 13
FCOPY ='LEVERAND '
FTEXT 'NR'
FTAB 25
FCOPY ='YDELSESMODT'
FNL
FKI 1,MAXL=10,REWRT,APPL=85,DUPL=GTDUPF(CBIN1), C
SCHK=1,ME
FMEL 'XXXXXXXXE-XX',GTREGF(CBIN1)
FKI 13,MINL=7,MAXL=10,REWRT,APPL=86,DUPL=GTDUPF(CBIN2), C
SCHK=1,ME
FMEL 'XXXXXXE-XXXX',GTREGF(CBIN2)
FKI 25,MINL=10,MAXL=10,REWRT,APPL=87,DUPL=GTDUPF(CBIN10), C
SCHK=1
FMEL 'XXXXXXE-XXXX',GTREGF(CBIN10)
FMEND
*
*
FRMT01 FRMT TRANSTYPE 1
FSL
FBF GTDIVTR,SFMT01
FMEL '99',GTREGNR
FCOPY =' NORMALPOST'
FTEXT ' M/P-NR'
FLINK FCYST
FNL
FCOPY ='REGKONTONR'
FTAB 13
FCOPY ='CPR/CIR/NR'
FNL
FLINK SUBF05
FLINK SUBF06
FNL
SFMT01
FBT GTDIVTR,SFMX01
FTAB 4
FCOPY ='HOVEDBOG'
FLINK FCYST
FNL
FNL
FNL
SFMX01
FLINK FBELOB
FNL
FLINK SUBF08
FNL
FTEXT 'BKO'
FTAB 5
FCOPY =X'56414C5C52'
FTAB 18
FTEXT 'BFO'
FNL
FLINK SUBV07
FLINK SUBF11
FLINK SUBF12
FLINK FCYEND
FMEND
*
*
TRANSTYPE 2
FRMT02 FRMT
FSL
FBF GTDIVTR,SFMT02
FMEL '99',GTREGNR
FCOPY =' NORMALPOST'
FLINK FCYST
FNL
FCOPY ='REGKONTONR'
FNL
FLINK SUBF05
FNL
SFMT02
FBT GTDIVTR,SFMX02
FTAB 4
FCOPY ='HOVEDBOG'
FLINK FCYST
FNL
FNL
FNL
SFMX02
FLINK FBELOB
FNL
FLINK SUBF08
FNL
FNL
FLINK FCYEND
FMEND
*
*
TRANSTYPE 3
FRMT03 FRMT
FSL
FBF GTDIVTR,SFMT03
FMEL '99',GTREGNR
FILLR ' ',1
FCOPY ='DEBITOR'
FTEXT 'INDB'
FLINK FCYST
FNL
FTAB 13
FCOPY ='CPR/CIR/NR'
FTAB 30
FCOPY ='BET-ART'
FNL
FLINK SUBF06
FKI 30,MAXL=2,APPL=7,ME,DUPL=GTDUPF(CBIN3)
FMELI 'XX',GTREGF(CBIN3)
FNL
SFMT03
FBT GTDIVTR,SFMX03
FTAB 4
FCOPY ='DEBITOR'
FTEXT ' POST.'
FLINK FCYST
FNL
FNL
FNL
SFMX03
FLINK FBELOB
FTAB 18
FTEXT ']R'
FTAB 22
FCOPY =X'56414C5C52'
FNL
FLINK SUBF08
FLINK SUBF15
FLINK SUBF11X
FNL
FTEXT 'RTE/GEB'
FTAB 9
FTEXT ' DEB'
FTAB 18
FTEXT 'BFO'
FNL
FKI 1,MAXL=1,APPL=16,DUPL=GTDUPF(CBIN12), C
NCLR
FMELI 'X',GTREGF(CBIN12)
FLINK SUBF48
FKI 18,MAXL=2,APPL=12,DUPL=GTDUPF(CBIN8)
FMELI 'XX',GTREGF(CBIN8)
FLINK FCYEND
FMEND
*
*
TRANSTYPE 4
FRMT04 FRMT
FSL
FBF GTDIVTR,SFMT04
FMEL '99',GTREGNR
FTEXT ' SD-INCASSO'
FLINK FCYST
FNL
FTAB 13
FCOPY ='CPR/CIR/NR'
FTAB 30
FCOPY ='BET-ART'
FNL
FLINK SUBF06
FKI 30,MAXL=2,APPL=77,REWRT,VERIF
FMELI 'XX',GTREGF(CBIN3)
FNL
SFMT04
FBT GTDIVTR,SFMX04
FTAB 4
FCOPY ='DEBITOR'
FTEXT ' POST.'
FLINK FCYST
FNL
FNL
FNL
SFMX04
FLINK FBELOB
FNL
FLINK SUBF08
FNL
FTEXT 'F]R RE] REM OPK'
FTAB 22
FCOPY =X'56414C5C52'
FILLR ' ',4
FTEXT 'BFO'
FNL
FKI 1,MINL=2,MAXL=2,APPL=17,DUPL=GTDUPF(CBIN10),CTAB
FMELI 'XX',GTREGF(CBIN10)
FKI 5,MINL=2,MAXL=2,APPL=18,DUPL=GTDUPF(CBIN11),CTAB
FMELI 'XX',GTREGF(CBIN11)
FKI 9,MINL=2,MAXL=2,APPL=19,DUPL=GTDUPF(CBIN12),CTAB
FMELI 'XX',GTREGF(CBIN12)
FKI 13,MAXL=1,APPL=20,DUPL=GTDUPF(CBIN13),CTAB
FMELI 'X',GTREGF(CBIN13)
FLINK SUBF11X
FKI 32,MAXL=2,APPL=12,DUPL=GTDUPF(CBIN8)
FMELI 'XX',GTREGF(CBIN8)
FLINK FCYEND
FMEND
*
*
TRANSTYPE 5
FRMT05 FRMT
FSL
FMEL '99',GTREGNR
FTEXT ' SALDOOVERF'
FLINK FCYST
FNL
FCOPY ='REGKONTONR'
FNL
FLINK SUBF05
FNL
FLINK FBELOB
FNL
FLINK SUBF08
FNL
FNL
FLINK FCYEND
FMEND
*
*
TRANSTYPE 6
FRMT06 FRMT
FSL
FBF GTDIVTR,SFMT06
FMEL '99',GTREGNR
FTEXT 'BRILLE'
FTEXT ' POST.'
FLINK FCYST
FNL
FCOPY ='REGKONTONR'
FTAB 13
FCOPY ='LEVERAND '
FTAB 25
FCOPY ='YDELSESMODT'
FNL
FLINK SUBF05
FLINK SUBF06
FLINK SUBF21
FNL
SFMT06
FBT GTDIVTR,SFMX06
FTAB 4
FCOPY ='HOVEDBOG'
FLINK FCYST
FNL
FNL
FNL
SFMX06
FLINK FBELOB
FNL
FLINK SUBF08
FNL
FTEXT 'BKO'
FTAB 5
FCOPY =X'56414C5C52'
FTAB 18
FTEXT 'BFO MTB'
FNL
FLINK SUBV07
FLINK SUBF11
FLINK SUBF12
FLINK SUBF22
FLINK FCYEND
FMEND
*
*
TRANSTYPE 07
FRMT07 FRMT
FSL
FMEL '99',GTREGNR
FTEXT ' PRIMO'
FTEXT 'SALDO'
FLINK FCYST
FNL
FCOPY ='REGKONTONR'
FNL
FLINK SUBF05
FNL
FLINK FBELOB
FNL
FLINK SUBF08
FNL
FNL
FLINK FCYEND
FMEND
*
*
TRANSTYPE 08-01-1
FRMT08 FRMT
FSL
FBF GTDIVTR,SFMT08
FMEL '99',GTREGNR
FCOPY =' REMITTERING'
FLINK FCYST
FNL
FCOPY ='REGKONTONR'
FTAB 13
FCOPY ='LEVERAND '
FNL
FLINK SUBF05
FLINK SUBF06
FNL
FB SFMX08
SFMT08
FTAB 3
FCOPY =' REMITTERING'
FLINK FCYST
FNL
FNL
FNL
SFMX08
FLINK FBELOB
FTAB 17
FTEXT 'FAKTNR'
FILLR ' ',5
FTEXT 'FAKTDATO'
FNL
FLINK SUBF08
FLINK SUBF24
FNL
FTEXT 'LEVKONTO'
FTAB 13
FTEXT 'TXT'
FTAB 22
FCOPY =X'56414C5C52'
FNL
FLINK SUBF25
FLINK SUBF26
FLINK SUBF11X
FLINK FCYEND
FMEND
*
*
TRANSTYPE 09 - 1
FRMT09 FRMT
FSL
FBF GTDIVTR,SFMT09
FMEL '99',GTREGNR
FCOPY =' REMITTERING'
FTEXT 'BRILLE'
FLINK FCYST
FNL
FCOPY ='REGKONTONR'
FTAB 13
FCOPY ='LEVERAND '
FTAB 25
FCOPY ='YDELSESMODT'
FNL
FLINK SUBF05
FLINK SUBF06
FLINK SUBF21
FNL
SFMT09
FBT GTDIVTR,SFMX09
FTAB 3
FCOPY =' REMITTERING'
FLINK FCYST
FNL
FNL
FNL
SFMX09
FLINK FBELOB
FTAB 17
FTEXT 'FAKTNR'
FILLR ' ',5
FTEXT 'FAKTDATO'
FNL
FLINK SUBF08
FLINK SUBF24
FNL
FTEXT 'LEVKONTO'
FTAB 13
FTEXT 'TXT'
FTAB 22
FCOPY =X'56414C5C52'
FNL
FLINK SUBF25
FLINK SUBF26
FLINK SUBF11X
FLINK FCYEND
FMEND
*
*
TRANSTYPE 10
FRMT10 FRMT
FSL
FMEL '99',GTREGNR
FTEXT ' POST T/GL. ]R'
FLINK FCYST
FNL
FCOPY ='REGKONTONR'
FNL
FLINK SUBF05
FNL
FLINK FBELOB
FTAB 17
FCOPY ='CPR/CIR/NR'
FNL
FLINK SUBF08
FKI 17,MAXL=10,MINL=7,REWRT,APPL=6,NCLR, C
DUPL=GTDUPF(CBIN2),SCHK=1
FMEL 'XXXXXXE-XXXX',GTREGF(CBIN2)
FNL
FNL
FLINK FCYEND
FMEND
*
*
FRMT12 FRMT
FSL
FMEL '99',GTREGNR
FTEXT ' DIVERSE'
FILLR ' ',1
FTEXT 'EJ EDB'
FLINK FCYST
FNL
FTEXT 'TNR'
FCOPY ='KONTONR'
FNL
FKI 1,MAXL=3,APPL=76,ME
FMEL 'XXX',GTREGF(CBIN10)
FKI 5,MINL=7,MAXL=10,REWRT,APPL=78,SCHK=1,CTAB
FMEL 'XXXXXXXXE-XX',GTREGF(CBIN1)
FKI 5,MAXL=10,APPL=79,VERIF,REWRT,CTAB
FMEL 'XXXXXXXXE-XX',GTREGF(CBIN1)
FNL
FLINK FBELOB
FTAB 17
FTEXT ' DIVERSE'
FNL
FLINK SUBF08
FKI 18,MAXL=10,APPL=89
FMELI 'XXXXXXXXXX',GTREGF(CBIN2)
FNL
FNL
FLINK FCYEND
FMEND
*
*
FRMT18 FRMT
FLINK SFREM1A
FNL
FLINK SUBF05
FLINK SUBF06
FLINK SFREM3
FNL
FLINK SUBF08 GTREG(4)
FLINK SUBF80 GTREG(15) TXTNR
FLINK SFREM4
FMEND
*
*
FRMT19 FRMT
FLINK SFREM1A
FTAB 25
FCOPY ='YDELSESMODT'
FNL
FLINK SUBF05
FLINK SUBF06
FLINK SUBF21 GTREG(10)
FLINK SFREM3
FNL
FLINK SUBF08 (GTREG(4)
FLINK SUBF80 GTREG(15)
FLINK SFREM4
FMEND
*
*
FRMT28 FRMT
FLINK SFREM1
FNL
FLINK SUBF05
FLINK SUBF06
FLINK SFREM3
FTAB 23
FCOPY =X'56414C5C52'
FNL
FLINK SUBF08 GTREG(4) BELOB
FLINK SUBF80 GTREG(15) TEXTNR
FLINK SUBF11X GTREG(7) VALOR
FLINK SFREM4
FMEND
*
*
FRMT29 FRMT
FLINK SFREM1
FTAB 25
FCOPY ='YDELSESMODT'
FNL
FLINK SUBF05
FLINK SUBF06
FLINK SUBF21
FLINK SFREM3
FTAB 23
FCOPY =X'56414C5C52'
FNL
FLINK SUBF08
FLINK SUBF80
FLINK SUBF11X
FLINK SFREM4
FMEND
*
SFREM1 FRMT
FSL
FMEL '99',GTREGNR
FCOPY =' REMITTERING'
FTEXT ' BUNDT'
FLINK FCYST
FNL
FCOPY ='REGKONTONR'
FTAB 13
FCOPY ='LEVERAND '
FMEND
SFREM1A FRMT
FSL
FMEL '99',GTREGNR
FCOPY =' REMITTERING'
FTEXT ' STRAKS'
FLINK FCYST
FNL
FCOPY ='REGKONTONR'
FTAB 13
FCOPY ='LEVERAND '
FMEND
*
*
SFREM3 FRMT
FNL
FLINK FBELOB
FTAB 17
FTEXT 'TXT'
FMEND
*
SFREM4 FRMT
FNL
FTEXT 'NR-1'
FTAB 12
FTEXT 'NR-2'
FTAB 23
FTEXT 'DATO'
FILLR '1',1
FTAB 30
FTEXT 'DATO'
FILLR '2',1
FNL
FLINK SUBF81
FLINK SUBF82
FLINK SUBF83
FLINK SUBF84
FLINK FCYEND
FMEND
*
FCYST FRMT
FTAB 23
FCOPY TTINF1
FMEND
*
FCYEND FRMT
FNL
FBF GTLOKSPG,FCY05
FTAB 5
FMEL '****9',GTLBNR
FCY05
FBF TTSUMFLG,FCY10
FTAB 15
FCOPY GTL8TXT
FINP 23
FMEL 'ZZZZZVZZ9,99+',GTSUM
FCY10
FLINK FMTEND
FMEND
*
FMTEND FRMT
FNL
FKI 2,MAXL=1,APPL=121,VERIF
FMELI 'B',TSWBCD2
FMEND
*
*
FBELOB FRMT
FTEXT X'42454C5C42'
FMEND
*
*
REGISTRERINGSKONTONNR
SUBF05 FRMT
FKI 1,MAXL=10,REWRT,APPL=5,DUPL=GTDUPF(CBIN1), C
SCHK=1,ME,NCLR
FMEL 'XXXXXXXXE-XX',GTREGF(CBIN1)
FMEND
*
*
CPR/CIR/LEV/DEBITOR NR
SUBF06 FRMT
FKI 13,MAXL=10,REWRT,APPL=6,DUPL=GTDUPF(CBIN2), C
SCHK=7,ME,NCLR,VERIF
FMEL 'XXXXXXE-XXXX',GTREGF(CBIN2)
FMEND
*
*
SUBV07 FRMT
FKI 1,MAXL=2,APPL=7,DUPL=GTDUPF(CBIN3)
FMELI 'XX',GTREGF(CBIN3)
FMEND
*
* POSTERINGSBEL@B
SUBF08 FRMT
FKI 1,MAXL=12,REWRT,APPL=8,DUPL=GTDUPF(CBIN4), C
ME,NCLR,SCHK=4
FMEL 'TTTTTTTVTTX,XX-',GTREGF(CBIN4)
FMEND
*
*
* BETALINGS VAL@RDATO
SUBF11 FRMT
FKI 5,MINL=6,MAXL=6,APPL=11,DUPL=GTDUPF(CBIN7),SCHK=2
FMEL 'XXVXXVXX',GTREGF(CBIN7)
FMEND
*
*
SUBF11X FRMT
FKI 22,MINL=6,MAXL=6,APPL=11,DUPL=GTDUPF(CBIN7),SCHK=2, C
VERIF
FMEL 'XXVXXVXX',GTREGF(CBIN7)
FMEND
*
*
BETALINGSFORM
SUBF12 FRMT
FKI 18,MAXL=1,APPL=12,DUPL=GTDUPF(CBIN8)
FMELI 'X',GTREGF(CBIN8)
FMEND
*
P$LIGNINGS]R
SUBF15 FRMT
FKI 18,MAXL=1,APPL=15,DUPL=GTDUPF(CBIN11)
FMELI 'X',GTREGF(CBIN11)
FMEND
*
*
YDELSESMODTAGER
SUBF21 FRMT
FKI 25,MINL=10,MAXL=10,REWRT,APPL=21,DUPL=GTDUPF(CBIN10), C
SCHK=1,ME,NCLR
FMEL 'XXXXXXE-XXXX',GTREGF(CBIN10)
FMEND
*
*
MODTAGERS BETALINGSART
SUBF22 FRMT
FKI 22,MINL=2,MAXL=2,APPL=22,DUPL=GTDUPF(CBIN11)
FMELI 'XX',GTREGF(CBIN11)
FMEND
*
*
FAKTURA NUMMER OG DATO
SUBF24 FRMT
FBT CFAKT10,LAB2410
FKI 17,MAXL=8,APPL=24,DUPL=GTDUPF(CBIN13)
FMEL 'TTTTTTTTTX',GTREGF(CBIN13)
FB LAB2420
LAB2410 FKI 17,MAXL=10,APPL=24,DUPL=GTDUPF(CBIN13)
FMEL 'TTTTTTTTTX',GTREGF(CBIN13)
LAB2420
FKI 28,MINL=6,MAXL=6,APPL=23,DUPL=GTDUPF(CBIN12), C
SCHK=2
FMEL 'XXVXXVXX',GTREGF(CBIN12)
FMEND
*
*
LEVERAND. KONTONUMMER
SUBF25 FRMT
FBT CFAKT10,LAB2510
FKI 1,MAXL=8,APPL=25,DUPL=GTDUPF(CBIN14)
FMEL 'TTTTTTTTTX',GTREGF(CBIN14)
FB LAB2590
LAB2510
FKI 1,MAXL=10,APPL=25,DUPL=GTDUPF(CBIN14)
FMEL 'TTTTTTTTTX',GTREGF(CBIN14)
LAB2590
FMEND
*
*
TEXTNUMMER
SUBF26 FRMT
FKI 13,MAXL=4,APPL=26,DUPL=GTDUPF(CBIN15)
FMEL 'TTTX',GTREGF(CBIN15)
FMEND
*
*
OMR]DENUMMER
SUBF27 FRMT
FKI 6,MINL=2,MAXL=2,APPL=27,DUPL=GTDUPF(CBIN16)
FMELI 'XX',GTREGF(CBIN16)
FMEND
*
*
PERIODE FRA/TIL
SUBF37 FRMT
FKI 1,MINL=6,MAXL=6,APPL=37,DUPL=GTDUPF(CBIN18), C
SCHK=2
FMEL 'XXVXXVXX',GTREGF(CBIN18)
FKI 10,MINL=6,MAXL=6,APPL=38,DUPL=GTDUPF(CBIN19), C
SCHK=2
FMEL 'XXVXXVXX',GTREGF(CBIN19)
FMEND
*
*
DEBITORL@BENUMMER
SUBF48 FRMT
FKI 10,MAXL=3,APPL=48,DUPL=GTDUPF(CBIN15)
FMEL 'TTX',GTREGF(CBIN15)
FMEND
*
*
SUBF80 FRMT
FKI 17,MINL=1,MAXL=4,APPL=115,DUPL=GTDUPF(CBIN15), C
ME,NCLR,REWRT,VERIF
FMEL 'TTTX',GTREGF(CBIN15)
FMEND
*
*
SUBF81 FRMT
FKI 1,MAXL=10,CTAB,APPL=116,DUPL=GTDUPF(CBIN13),REWRT, C
VERIF
FMEL 'TTTTTTTTTX',GTREGF(CBIN13)
FMEND
*
SUBF82 FRMT
FKI 12,MAXL=10,CTAB,APPL=117,DUPL=GTDUPF(CBIN14),REWRT, C
VERIF
FMEL 'TTTTTTTTTX',GTREGF(CBIN14)
FMEND
*
SUBF83 FRMT
FKI 23,MINL=6,MAXL=6,CTAB,APPL=118,DUPL=GTDUPF(CBIN18), C
SCHK=2,REWRT,VERIF
FMEL 'XXXXXX',GTREGF(CBIN18)
FMEND
*
SUBF84 FRMT
FKI 30,MINL=6,MAXL=6,CTAB,APPL=119, C
DUPL=GTDUPF(CBIN19),SCHK=2,REWRT,VERIF
FMEL 'XXXXXX',GTREGF(CBIN19)
FMEND
*
FMT308 FRMT
FSL
FLINK SFM408
FNL
FLINK SUBF37
FLINK FCYEND
FMEND
*
FMT309 FRMT
FSL
FLINK SFM408
FTAB 22
FTEXT 'MTB'
FNL
FLINK SUBF37
FLINK SUBF22
FLINK FCYEND
FMEND
*
SFM408 FRMT
FNL
FNL
FNL
FTEXT 'BKO'
FTAB 6
FTEXT 'OMR'
FTAB 11
FTEXT 'A-ADR'
FTAB 18
FTEXT 'BFO'
FNL
FLINK SUBV07
FLINK SUBF27
FKI 11,MAXL=1,APPL=46,DUPL=GTDUPF(CBIN17)
FMELI 'X',GTREGF(CBIN17)
FLINK SUBF12
FNL
FTEXT 'PER FRA PER TIL'
FMEND
*
FMT208 FRMT
FSL
FTEXT 'UDB.OPL.1-5'
FNL
FILLR '1',1
FKI 3,MAXL=22,APPL=90,ALPHA
FCOPY GTFELT90(CBIN1)
FNL
FILLR '2',1
FKI 3,MAXL=22,APPL=91,ALPHA
FCOPY GTFELT90(CBIN2)
FNL
FILLR '3',1
FKI 3,MAXL=22,APPL=92,ALPHA
FCOPY GTFELT90(CBIN3)
FNL
FILLR '4',1
FKI 3,MAXL=22,APPL=93,ALPHA
FCOPY GTFELT90(CBIN4)
FNL
FILLR '5',1
FKI 3,MAXL=22,APPL=94,ALPHA
FCOPY GTFELT90(CBIN5)
FLINK FMTEND
FMEND
FMTERR FRMT
FSL
FTEXT 'FEJL FORMAT'
FMEND
*
*
XSPCY1 FRMT
FSL
FNL
FNL
FNL
FNL
FNL
FBT TTCY2FLG,XSPL01
FTEXT 'ARKIV'
FCOPY ='KONTONR'
FTAB 15
FTEXT 'KONTROLSUM'
XSPL01
FTAB 32
FTEXT 'LINIE'
FNL
FBT TTCY2FLG,XSPL02
FKI 1,MINL=10,MAXL=10,REWRT,SCHK=1
FMEL 'XXXXXXXXE-XX',GTREGF(CBIN9)
FKI 15,MAXL=12,REWRT,SCHK=4
FMEL 'TTTTTTTVTTX,XX-',GTCYSUM
XSPL02
FKI 32,MAXL=2,SCHK=5,ME
FMELI 'XX',TTLINNR
FLINK FMTEND
FMEND
*
*
XSPKT1 FRMT
FSL
FNL
FNL
FNL
FNL
FNL
FBF CKTFLAG,XSPL05
FTAB 5
FTEXT 'GL. SALDO'
FTAB 18
FCOPY ='LINIE NR'
FTEXT ' CHECK'
FNL
FKI 5,MAXL=12,REWRT,APPL=112,SCHK=4
FMEL 'TTTTTTTVTTX,XX-',TTKTSLD
FKI 18,MAXL=2,ME,NEOI,SCHK=5
FMELI 'XX',TTKTLIN
FKI 28,MAXL=1,ME,SCHK=6
FMELI 'X',TTKTCHK
FLINK FMTEND
FEXIT
XSPL05
FTAB 5
FCOPY ='KONTOKORT'
FTAB 18
FCOPY ='LINIE NR'
FNL
FKI 18,MAXL=2,ME,SCHK=5
FMELI 'XX',TTKTLIN
FLINK FMTEND
FMEND
*
*
XSPLIN FRMT
FSL
FNL
FNL
FNL
FNL
FNL
FTAB 13
FTEXT 'FAST '
FCOPY ='LINIE NR'
FNL
FKI 18,MAXL=2,SCHK=5
FMELI 'XX',GSWBCD5 LINE NR
FLINK FMTEND
FMEND
*
*
END
*