|
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: 30220 (0x760c)
Notes: pts_type(SC)
Names: »RGFRMT.SC«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »OD-KOM/RGFRMT.SC«
└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
└─⟦this⟧ »OD-KOM/RGFRMT.SC«
IDENT RGFRMT 821005 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
*
EJECT
*
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,FRMT00,FRMT00,FRMT00,FRMT00, C
FRMT00,FRMT00,FRMT00,FRMT00,FRMT00 C
FRMT51,FRMT00,FRMT53,FRMT00,FRMT00
*
*
XSPFTB FTABLE FMT208,FMT209,FMT251,FMT253, C
FMTERR,FMTERR,FMTERR,FMTERR, C
FMTERR,FMTERR,XSPCY1,XSPKT1, C
XSPLIN
EJECT
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'
FCOPY =' POST.'
FLINK FCYST
FNL
FCOPY ='DEBITOR'
FILLR ' ',1
FCOPY ='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
FMEL 'XX',GTREGF(CBIN3)
FKI 15,MAXL=2,APPL=88,VERIF,REWRT
FMEL 'XX',GTREGF(CBIN3)
FMEND
*
*
STYRRM FRMT
FSL
FTAB 3
FCOPY =' REMITTERING'
FLINK FCYST
FNL
FCOPY ='REGKONTONR'
FTAB 13
FCOPY ='LEVERAND '
FCOPY ='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
*
*
EJECT
*
*
FRMT00 FRMT
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
FCOPY ='BKO'
FTAB 5
FLINK FVALOR
FTAB 18
FCOPY ='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
FTEXT ' DEBITORINDB'
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)
FMEL 'XX',GTREGF(CBIN3)
FNL
SFMT03
FBT GTDIVTR,SFMX03
FTAB 4
FCOPY ='DEBITOR'
FCOPY =' POST.'
FLINK FCYST
FNL
FNL
FNL
SFMX03
FLINK FBELOB
FTAB 18
FCOPY =']R'
FTAB 22
FLINK FVALOR
FNL
FLINK SUBF08
FLINK SUBF15
FLINK SUBF11X
FNL
FCOPY ='RTE/GEB'
FTAB 9
FCOPY =' DEB'
FTAB 18
FCOPY ='BFO'
FNL
FLINK SUBF16
FLINK SUBF48
FKI 18,MAXL=2,APPL=12,DUPL=GTDUPF(CBIN8)
FMEL '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
FMEL 'XX',GTREGF(CBIN3)
FNL
SFMT04
FBT GTDIVTR,SFMX04
FTAB 4
FCOPY ='DEBITOR'
FCOPY =' POST.'
FLINK FCYST
FNL
FNL
FNL
SFMX04
FLINK FBELOB
FNL
FLINK SUBF08
FNL
FTEXT ='F]R RE] REM OPK'
FILLR ' ',7
FLINK FVALOR
FILLR ' ',4
FTEXT 'BFO'
FNL
FLINK SUBF17
FLINK SUBF11X
FKI 32,MAXL=2,APPL=12,DUPL=GTDUPF(CBIN8)
FMEL '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
FCOPY =' BRILLE'
FCOPY =' 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
FCOPY ='BKO'
FTAB 5
FLINK FVALOR
FTAB 18
FCOPY ='BFO'
FTAB 22
FCOPY ='MTB'
FNL
FLINK SUBV07
FLINK SUBF11
FLINK SUBF12
FLINK SUBF22
FLINK FCYEND
FMEND
*
*
TRANSTYPE 07
FRMT07 FRMT
FSL
FMEL '99',GTREGNR
FCOPY =' PRIMO'
FCOPY ='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
SFMT08
FBT GTDIVTR,SFMX08
FTAB 3
FCOPY =' REMITTERING'
FLINK FCYST
FNL
FNL
FNL
SFMX08
FLINK FBELOB
FTAB 17
FCOPY ='FAKTNR FAKTDATO'
FNL
FLINK SUBF08X
FLINK SUBF24
FNL
FCOPY ='LEVKONTO'
FTAB 13
FLINK FVALOR
FTAB 22
FCOPY ='TXT'
FNL
FLINK SUBF25
FLINK SUBF11Y
FLINK SUBF26X
FLINK FCYEND
FMEND
*
*
TRANSTYPE 09 - 1
FRMT09 FRMT
FSL
FBF GTDIVTR,SFMT09
FMEL '99',GTREGNR
FCOPY =' REMITTERING'
FCOPY =' 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
FCOPY ='FAKTNR FAKTDATO'
FNL
FLINK SUBF08X
FLINK SUBF24
FNL
FCOPY ='LEVKONTO'
FTAB 13
FCOPY ='TXT'
FTAB 22
FLINK FVALOR
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
FCOPY =' DIVERSE'
FILLR ' ',1
FCOPY ='EJ EDB'
FLINK FCYST
FNL
FCOPY ='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
FCOPY =' DIVERSE'
FNL
FLINK SUBF08
FKI 18,MAXL=10,APPL=89
FMEL 'XXXXXXXXXX',GTREGF(CBIN2)
FNL
FNL
FLINK FCYEND
FMEND
EJECT
* FORMATS FOR TRANS 51,53
FRMT51 FRMT TRANS 51 P.1
FSL
FMEL '99',GTREGNR
FCOPY =' RATE-P]LIGN'
FLINK FCYST
FNL
FCOPY ='DEBITOR'
FCOPY ='NR'
FILLR ' ',3
FCOPY ='CPR/CIR/NR'
FILLR ' ',2
FCOPY ='LBNR ART'
FILLR ' ',2
FCOPY =']R'
FNL
FLINK SUBR28
FLINK SUBR06
FLINK SUBR48
FLINK SUBR07
FLINK SUBR15
FNL
FLINK FRTBEL
FTAB 18
FCOPY ='RATE'
FCOPY ='NR'
FILLR ' ',2
FCOPY ='RATE'
FCOPY ='ANTAL'
FNL
FLINK SUBR39
FLINK SUBR36
FLINK SUBR32
FNL
FCOPY ='OPK-KODE'
FILLR ' ',1
FCOPY ='P]L-'
FCOPY ='DATO'
FNL
FLINK SUBR14
FLINK SUBR31
FLINK FCYEND
FMEND
*
*
FRMT53 FRMT TRANS 53 P.1
FSL
FMEL '99',GTREGNR
FCOPY =' RATE-[NDR'
FLINK FCYST
FNL
FCOPY ='DEBITOR'
FCOPY ='NR'
FILLR ' ',3
FCOPY ='CPR/CIR/NR'
FILLR ' ',2
FCOPY ='LBNR ART'
FILLR ' ',2
FCOPY =']R'
FNL
FLINK SUBR28
FLINK SUBR06
FLINK SUBR48
FLINK SUBR07
FLINK SUBR15
FNL
FCOPY ='[NDR-'
FLINK FBELOB
FTAB 18
FCOPY ='RATE'
FCOPY ='NR'
FILLR ' ',2
FCOPY ='RATE'
FCOPY ='ANTAL'
FNL
FLINK SUBR47
FLINK SUBR36
FLINK SUBR32
FNL
FCOPY ='OPK-KODE'
FILLR ' ',1
FCOPY ='[NDR-'
FCOPY ='DATO'
FILLR ' ',2
FCOPY ='[NDR-'
FCOPY ='KODE'
FNL
FLINK SUBR14
FLINK SUBR40
FLINK SUBR41
FLINK FCYEND
FMEND
EJECT
*
*
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=90,VERIF
FMEL 'B',TSWBCD2
FMEND
*
*
FVALOR FRMT
FCOPY ='VAL'
FILLR X'5C',1
FILLR 'R',1
FMEND
*
FBELOB FRMT
FCOPY ='BE'
FILLR 'L',1
FILLR X'5C',1
FILLR 'B',1
FMEND
*
*
FRTBEL FRMT
FTEXT 'RATE'
FLINK FBELOB
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=1,ME,NCLR
FMEL 'XXXXXXE-XXXX',GTREGF(CBIN2)
FMEND
*
SUBV07 FRMT
FKI 1,MAXL=2,APPL=7,DUPL=GTDUPF(CBIN3)
FMEL '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
SUBF08X FRMT
FKI 1,MAXL=11,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
FMEL 'XXVXXVXX',GTREGF(CBIN7)
FMEND
SUBF11Y FRMT
FKI 13,MINL=6,MAXL=6,APPL=11,DUPL=GTDUPF(CBIN7),SCHK=2
FMEL 'XXVXXVXX',GTREGF(CBIN7)
FMEND
*
*
BETALINGSFORM
SUBF12 FRMT
FKI 18,MAXL=1,APPL=12,DUPL=GTDUPF(CBIN8)
FMEL 'X',GTREGF(CBIN8)
FMEND
*
*
P$LIGNINGS]R
SUBF15 FRMT
FKI 18,MAXL=1,APPL=15,DUPL=GTDUPF(CBIN11)
FMEL 'X',GTREGF(CBIN11)
FMEND
*
*
RENTE/GEBYR KODE
SUBF16 FRMT
FKI 1,MAXL=1,APPL=16,DUPL=GTDUPF(CBIN12), C
NCLR
FMEL 'X',GTREGF(CBIN12)
FMEND
*
*
FORFALDS]R/RESTANCE ]R-M]NED/
OPRIKD[KKODE
SUBF17 FRMT
FKI 1,MINL=2,MAXL=2,APPL=17,DUPL=GTDUPF(CBIN10),CTAB
FMEL 'XX',GTREGF(CBIN10)
FKI 5,MINL=2,MAXL=2,APPL=18,DUPL=GTDUPF(CBIN11),CTAB
FMEL 'XX',GTREGF(CBIN11)
FKI 9,MINL=2,MAXL=2,APPL=19,DUPL=GTDUPF(CBIN12),CTAB
FMEL 'XX',GTREGF(CBIN12)
FKI 13,MAXL=1,APPL=20,DUPL=GTDUPF(CBIN13),CTAB
FMEL 'X',GTREGF(CBIN13)
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)
FMEL 'XX',GTREGF(CBIN11)
FMEND
*
*
FAKTURA NUMMER OG DATO
SUBF24 FRMT
FKI 17,MAXL=10,APPL=24,DUPL=GTDUPF(CBIN13)
FMEL 'TTTTTTTTTX',GTREGF(CBIN13)
FKI 28,MINL=6,MAXL=6,APPL=23,DUPL=GTDUPF(CBIN12), C
SCHK=2
FMEL 'XXVXXVXX',GTREGF(CBIN12)
FMEND
*
*
LEVERAND. KONTONUMMER
SUBF25 FRMT
FKI 1,MAXL=10,APPL=25,DUPL=GTDUPF(CBIN14)
FMEL 'TTTTTTTTTX',GTREGF(CBIN14)
FMEND
*
*
TEXTNUMMER
SUBF26 FRMT
FKI 13,MAXL=4,APPL=26,DUPL=GTDUPF(CBIN15)
FMEL 'TTTX',GTREGF(CBIN15)
FMEND
*
*
SUBF26X FRMT
FKI 22,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)
FMEL '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
*
*
ALTERNATIV ADRESSEKODE
SUBF46 FRMT
FKI 11,MAXL=1,APPL=46,DUPL=GTDUPF(CBIN17)
FMEL 'X',GTREGF(CBIN17)
FMEND
*
*
DEBITORL@BENUMMER
SUBF48 FRMT
FKI 10,MAXL=3,APPL=48,DUPL=GTDUPF(CBIN15)
FMEL 'TTX',GTREGF(CBIN15)
FMEND
*
*
EJECT
* SUBFORMATS FOR TRANS 51,53
*
*
SUBR06 FRMT
FKI 13,MINL=7,MAXL=10,REWRT,APPL=6,DUPL=GTDUPF(CBIN2), C
SCHK=1,CTAB
FMEL 'XXXXXXE-XXXX',GTREGF(CBIN2)
FMEND
*
*
BETALINGSKODE
SUBR07 FRMT
FKI 30,MAXL=2,APPL=7,DUPL=GTDUPF(CBIN3),ME,NCLR
FMEL 'XX',GTREGF(CBIN3)
FMEND
*
*
SUBR14 FRMT
FKI 1,MAXL=1,APPL=14,DUPL=GTDUPF(CBIN5)
FMEL 'X',GTREGF(CBIN5)
FMEND
*
*
SUBR15 FRMT
FKI 35,MAXL=1,APPL=15,DUPL=GTDUPF(CBIN11)
FMEL 'X',GTREGF(CBIN11)
FMEND
*
*
SUBR27 FRMT
FKI 21,MINL=2,MAXL=2,APPL=27,DUPL=GTDUPF(CBIN16), C
CTAB
FMEL 'XX',GTREGF(CBIN16)
FMEND
*
*
SUBR28 FRMT
FKI 1,MAXL=10,REWRT,APPL=28,DUPL=GTDUPF(CBIN1), C
SCHK=1
FMEL 'XXXXXXXXE-XX',GTREGF(CBIN1)
FMEND
*
*
SUBR29 FRMT
FKI 9,MINL=7,MAXL=10,REWRT,APPL=29,DUPL=GTDUPF(CBIN8), C
SCHK=1
FMEL 'XXXXXXE-XXXX',GTREGF(CBIN8)
FMEND
*
*
SUBR30 FRMT
FKI 1,MAXL=1,APPL=30,DUPL=GTDUPF(CBIN9)
FMEL 'X',GTREGF(CBIN9)
FMEND
*
*
SUBR31 FRMT
FKI 10,MINL=6,MAXL=6,APPL=31,DUPL=GTDUPF(CBIN7), C
SCHK=2
FMEL 'XXVXXVXX',GTREGF(CBIN7)
FMEND
*
*
SUBR32 FRMT
FKI 26,MAXL=2,APPL=32
FMEL 'XX',GTRTANT
FMEND
*
*
SUBR36 FRMT
FKI 18,MAXL=2,APPL=36,DUPL=GTDUPF(CBIN4), C
ME,NCLR
FMEL 'XX',GTREGF(CBIN4)
FMEND
*
*
SUBR39 FRMT
FKI 1,MAXL=12,REWRT,APPL=39,DUPL=GTDUPF(CBIN6), C
ME,NCLR,SCHK=4
FMEL 'TTTTTTTVTTX,XX-',GTREGF(CBIN6)
FMEND
*
*
SUBR40 FRMT
FKI 10,MINL=6,MAXL=6,APPL=40,DUPL=GTDUPF(CBIN7), C
SCHK=2
FMEL 'XXVXXVXX',GTREGF(CBIN7)
FMEND
*
*
SUBR41 FRMT
FKI 21,MAXL=2,APPL=41,DUPL=GTDUPF(CBIN18)
FMEL 'XX',GTREGF(CBIN18)
FMEND
*
*
SUBR43 FRMT
FKI 1,MINL=6,MAXL=6,APPL=43,DUPL=GTDUPF(CBIN20), C
SCHK=2
FMEL 'XXVXXVXX',GTREGF(CBIN20)
FMEND
*
*
SUBR44 FRMT
FKI 11,MINL=6,MAXL=6,APPL=44,DUPL=GTDUPF(CBIN21), C
SCHK=2
FMEL 'XXVXXVXX',GTREGF(CBIN21)
FMEND
*
*
SUBR45 FRMT
FKI 24,MINL=6,MAXL=6,APPL=45,DUPL=GTDUPF(CBIN22), C
SCHK=2
FMEL 'XXVXXVXX',GTREGF(CBIN22)
FMEND
*
*
ALTERNATIV ADRESSEKODE
SUBR46 FRMT
FKI 21,MAXL=1,APPL=46,DUPL=GTDUPF(CBIN17)
FMEL 'X',GTREGF(CBIN17)
FMEND
*
*
SUBR47 FRMT
FKI 1,MAXL=12,REWRT,APPL=47,DUPL=GTDUPF(CBIN6), C
ME,NCLR,SCHK=4
FMEL 'TTTTTTTVTTX,XX-',GTREGF(CBIN6)
FMEND
*
*
DEBITORL@BENUMMER
SUBR48 FRMT
FKI 25,MAXL=3,APPL=48,DUPL=GTDUPF(CBIN15),CTAB
FMEL 'TTX',GTREGF(CBIN15)
FMEND
*
*
SUBR49 FRMT
FKI 25,MAXL=1,APPL=49,DUPL=GTDUPF(CBIN10)
FMEL 'X',GTREGF(CBIN10)
FMEND
*
*
SUBR66 FRMT
FKI 25,MAXL=10,APPL=66,DUPL=GTDUPF(CBIN12)
FMEL 'XXXXXXXXXX',GTREGF(CBIN12)
FMEND
*
*
SUBR81 FRMT
FKI 1,MAXL=9,REWRT,APPL=67,DUPL=GTDUPF(CBIN19), C
SCHK=4
FMEL 'TTTTVTTX,XX-',GTREGF(CBIN19)
FMEND
EJECT
FMT208 FRMT
FSL
FNL
FNL
FNL
FCOPY ='BKO'
FTAB 6
FCOPY ='OMR'
FTAB 11
FCOPY ='A-ADR'
FTAB 18
FCOPY ='BFO'
FNL
FLINK SUBV07
FLINK SUBF27
FLINK SUBF46
FLINK SUBF12
FNL
FCOPY ='PER FRA PER TIL'
FNL
FLINK SUBF37
FLINK FCYEND
FMEND
*
FMT209 FRMT
FSL
FNL
FNL
FNL
FCOPY ='BKO'
FTAB 6
FCOPY ='OMR'
FTAB 11
FCOPY ='A-ADR'
FTAB 18
FCOPY ='BFO'
FNL
FLINK SUBV07
FLINK SUBF27
FLINK SUBF46
FLINK SUBF12
FNL
FCOPY ='PER FRA PER TIL'
FTAB 22
FCOPY ='MTB'
FNL
FLINK SUBF37
FLINK SUBF22
FLINK FCYEND
FMEND
*
TRANS 51 P.2
FMT251 FRMT
FSL
FMEL '99',GTREGNR
FCOPY =' RATE-P]LIGN'
FCOPY =' SIDE '
FILLR '2',1
FNL
FCOPY ='ADM-KOD'
FILLR ' ',1
FCOPY ='ADM-NR'
FILLR ' ',6
FCOPY ='ADR'
FCOPY =' REF-NR'
FNL
FLINK SUBR30
FLINK SUBR29
FLINK SUBR46
FLINK SUBR66
FNL
FCOPY ='RENTEFRIT '
FLINK FBELOB
FTAB 21
FCOPY ='OMR'
FILLR ' ',1
FCOPY ='[NDR-'
FCOPY ='TYP'
FNL
FLINK SUBR81
FLINK SUBR27
FLINK SUBR49
FLINK FCYEND
FMEND
*
*
TRANS 53 P.2
FMT253 FRMT
FSL
FMEL '99',GTREGNR
FCOPY =' RATE-[NDR'
FCOPY =' SIDE '
FILLR '2',1
FNL
FCOPY ='FORF.'
FCOPY ='DATO'
FILLR ' ',1
FCOPY ='RET.IND.'
FCOPY ='DATO'
FILLR ' ',1
FCOPY ='OPKR.'
FCOPY ='DATO'
FNL
FLINK SUBR43
FLINK SUBR44
FLINK SUBR45
FNL
FCOPY ='ADM-KOD'
FILLR ' ',1
FCOPY ='ADM-NR'
FILLR ' ',6
FCOPY ='ADR'
FCOPY =' REF-NR'
FNL
FLINK SUBR30
FLINK SUBR29
FLINK SUBR46
FLINK SUBR66
FNL
FCOPY ='RENTEFRIT '
FLINK FBELOB
FTAB 21
FCOPY ='OMR'
FILLR ' ',1
FCOPY ='[NDR-'
FCOPY ='TYP'
FNL
FLINK SUBR81
FLINK SUBR27
FLINK SUBR49
FLINK FCYEND
FMEND
*
*
FMTERR FRMT
FSL
FCOPY ='FEJL FORMAT'
FMEND
*
*
XSPCY1 FRMT
FSL
FNL
FNL
FNL
FNL
FNL
FBT TTCY2FLG,XSPL01
FCOPY ='ARKIV'
FCOPY ='KONTONR'
FTAB 15
FTEXT 'KONTROLSUM'
XSPL01
FTAB 32
FCOPY ='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
FMEL '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
FMEL 'XX',TTKTLIN
FKI 28,MAXL=1,ME,SCHK=6
FMEL 'X',TTKTCHK
FLINK FMTEND
FEXIT
XSPL05
FTAB 5
FCOPY ='KONTOKORT'
FTAB 18
FCOPY ='LINIE NR'
FNL
FKI 18,MAXL=2,ME,SCHK=5
FMEL '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
FMEL 'XX',GSWBCD5 LINE NR
FLINK FMTEND
FMEND
*
*
END
*