|
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: 26930 (0x6932)
Notes: pts_type(SC)
Names: »RGFRMT.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/RGFRMT.SC«
IDENT RGFRMT 03.01.XXX.1
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
FRMT00,FRMT00,FRMT00,FRMT00,FRMT00
*
*
XSPFTB FTABLE FMT208,FMT209,FMT251,FMT253, C
FMT351,FMT353,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
FLINK SUBF12
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'
FTAB 22
FLINK FVALOR
FNL
FLINK SUBF17
FLINK SUBF11X
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 SUBF08
FLINK SUBF24
FNL
FCOPY ='LEVKONTO'
FTAB 13
FCOPY ='TXT'
FTAB 22
FLINK FVALOR
FNL
FLINK SUBF25
FLINK SUBF26
FLINK SUBF11X
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 SUBF08
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
*
*
*
********** INCLUDE FMT402
*********** FORMATS FOR TRANS 40'
*
********** INCLUDE FMT50
********** FORMATS FOR TRANS 50
*
*
*
FM40ST FRMT
FSL
FMEL '99',GTREGNR
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=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
*
*
BETALINGSKODE
SUBF07 FRMT
FKI 1,MAXL=2,APPL=7,DUPL=GTDUPF(CBIN3),ME,NCLR
FMEL 'XX',GTREGF(CBIN3)
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
*
*
*
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
*
*
BETALINGSFORM
SUBF12 FRMT
FKI 18,MAXL=1,APPL=12,DUPL=GTDUPF(CBIN8)
FMEL 'X',GTREGF(CBIN8)
FMEND
*
*
SUBF14 FRMT
FKI 4,MAXL=1,APPL=14,DUPL=GTDUPF(CBIN4), C
ME,NCLR
FMEL 'X',GTREGF(CBIN4)
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=8,APPL=24,DUPL=GTDUPF(CBIN13)
FMEL 'TTTTTTTX',GTREGF(CBIN13)
FKI 26,MINL=6,MAXL=6,APPL=23,DUPL=GTDUPF(CBIN12), C
SCHK=2
FMEL 'XXVXXVXX',GTREGF(CBIN12)
FMEND
*
*
LEVERAND. KONTONUMMER
SUBF25 FRMT
FKI 1,MAXL=8,APPL=25,DUPL=GTDUPF(CBIN14)
FMEL 'TTTTTTTX',GTREGF(CBIN14)
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)
FMEL 'XX',GTREGF(CBIN16)
FMEND
*
*
SUBF28 FRMT
FKI 1,MINL=10,MAXL=10,REWRT,APPL=28,DUPL=GTDUPF(CBIN1), C
SCHK=1,ME,NCLR
FMEL 'XXXXXXXXE-XX',GTREGF(CBIN1)
FMEND
*
*
SUBF31 FRMT
FKI 24,MINL=6,MAXL=6,APPL=31,DUPL=GTDUPF(CBIN10), C
SCHK=2,ME,NCLR
FMEL 'XXVXXVXX',GTREGF(CBIN10)
FMEND
*
*
SUBF36 FRMT
FKI 1,MAXL=2,APPL=36,DUPL=GTDUPF(CBIN5), C
ME,NCLR
FMEL 'XX',GTREGF(CBIN5)
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
*
*
SUBF39 FRMT
FKI 8,MAXL=12,REWRT,APPL=39,DUPL=GTDUPF(CBIN7), C
ME,NCLR,SCHK=4
FMEL 'TTTTTTTVTTX,XX-',GTREGF(CBIN7)
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
*
*
SUBF55 FRMT
FLINK SUBX55
FLINK SUBX56
FLINK SUBX57
FNL
FKI 13,MAXL=10,REWRT,APPL=58,DUPL=GTREGF(CBIN5),SCHK=4
FMEL 'TTTTTTTTTX-',GTREGF(CBIN6)
FKI 25,MAXL=10,REWRT,APPL=59,DUPL=GTREGF(CBIN6),SCHK=4
FMEL 'TTTTTTTTTX-',GTREGF(CBIN7)
FNL
FKI 13,MAXL=10,REWRT,APPL=60,DUPL=GTREGF(CBIN7),SCHK=4
FMEL 'TTTTTTTTTX-',GTREGF(CBIN8)
FKI 25,MAXL=10,REWRT,APPL=61,DUPL=GTREGF(CBIN8),SCHK=4
FMEL 'TTTTTTTTTX-',GTREGF(CBIN9)
FNL
FKI 25,MAXL=10,REWRT,APPL=62,DUPL=GTREGF(CBIN9),SCHK=4
FMEL 'TTTTTTTTTX-',GTREGF(CBIN10)
FMEND
*
SUBX55 FRMT
FKI 1,MAXL=10,REWRT,APPL=55,SCHK=4
FMEL 'TTTTTTTTTX-',GTREGF(CBIN3)
FMEND
*
SUBX56 FRMT
FKI 13,MAXL=10,REWRT,APPL=56,DUPL=GTREGF(CBIN3),SCHK=4
FMEL 'TTTTTTTTTX-',GTREGF(CBIN4)
FMEND
*
SUBX57 FRMT
FKI 25,MAXL=10,REWRT,APPL=57,DUPL=GTREGF(CBIN4),SCHK=4
FMEL 'TTTTTTTTTX-',GTREGF(CBIN5)
FMEND
*
SUBF57 FRMT
FLINK SUBX55
FLINK SUBX56
FLINK SUBX57
FMEND
SUBF56 FRMT
FLINK SUBX56
FMEND
*
SUBF64 FRMT
FLINK SUB164
FLINK SUB264
FMEND
*
SUB164 FRMT
FBP GSSWITCH(CBIN12),LAB164
FKI 20,MAXL=1,APPL=64,DUPL=GTDUPF(CBIN12), C
ME,NCLR
FMEL 'X',GTREGF(CBIN12)
LAB164 FMEND
*
SUB264 FRMT
FBZ GSSWITCH(CBIN12),LAB264
FKI 20,MAXL=1,APPL=64,NCLR,VERIF
FMEL 'X',GTREGF(CBIN12)
LAB264 FMEND
*
*
SUBF65 FRMT
FKI 13,MAXL=4,APPL=65,DUPL=GTDUPF(CBIN13), C
ME,NCLR
FMEL 'TTTX',GTREGF(CBIN13)
FMEND
*
*
SUBF54 FRMT
FLINK SUB154
FLINK SUB254
FMEND
*
SUB154 FRMT
FBP GSSWITCH(CBIN2),LAB154
FKI 27,MAXL=10,REWRT,APPL=54,DUPL=GTDUPF(CBIN2),SCHK=4, C
ME,NCLR
FMEL 'TTTTTTTTTX-',GTREGF(CBIN2)
LAB154 FMEND
*
SUB254 FRMT
FBZ GSSWITCH(CBIN2),LAB254
FKI 27,MAXL=10,APPL=54,NCLR,VERIF
FMEL 'TTTTTTTTTX-',GTREGF(CBIN2)
LAB254 FMEND
*
SUBF63 FRMT
FKI 1,MINL=6,MAXL=6,APPL=63,DUPL=GTDUPF(CBIN11), C
ME,NCLR,SCHK=2
FMEL 'XXVXXVXX',GTREGF(CBIN11)
FMEND
*
SUBF70 FRMT
FKI 1,MAXL=4,APPL=70,DUPL=GTDUPF(CBIN1), C
ME,NCLR
FMEL 'TTTX',GTREGF(CBIN1)
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
*
FMT251 FRMT
FSL
FCOPY ='SIDE 51-2'
FMEND
FMT253 FRMT
FSL
FCOPY ='SIDE 53-2'
FMEND
FMT351 FRMT
FSL
FCOPY ='SIDE 51-3'
FMEND
FMT353 FRMT
FSL
FCOPY ='SIDE 53-3'
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
*