|
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: 36750 (0x8f8e)
Notes: pts_type(SC)
Names: »DIV461.SC«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »OD-KOM/DIV461.SC«
IDENT DIV461 840130 EV
DDUM KMD08
PDIV
ENTRY FRMTJT
ENTRY FRMXJT
ENTRY FRMTTA
ENTRY FRMXTA
ENTRY FRMTVO
ENTRY FRMTKV
ENTRY FRMXVO
ENTRY FRMTKT
ENTRY FRMXKT
ENTRY FRMTGP
ENTRY FRMXGP
ENTRY FRMXBC
ENTRY FRM1EL
ENTRY FRM2EL
ENTRY FRM3EL
ENTRY FRM4EL
ENTRY FRMXEL
EXT FMOVE
INCLUDE EQUATE
*
FRMTJT PROC
CALL FMOVE,GTSTRFMT,FTBJT(GTREGDEX)
RET
PEND
*
FRMXJT PROC XJTDEX
CALL FMOVE,GTSTRFMT,FTBXJT(XJTDEX)
RET
PEND
*
FRMTTA PROC
CALL FMOVE,GTSTRFMT,FTBTA(GTREGDEX)
RET
PEND
*
FRMXTA PROC XTADEX
CALL FMOVE,GTSTRFMT,FTBXTA(XTADEX)
RET
PEND
*
FRMTVO PROC
CALL FMOVE,GTSTRFMT,FTBVO(GTREGDEX)
RET
PEND
*
FRMXVO PROC XVODEX
CALL FMOVE,GTSTRFMT,FTBXVO(XVODEX)
RET
PEND
*
FRMTKV PROC
CALL FMOVE,GTSTRFMT,FTBKV(GTREGDEX)
RET
PEND
*
FRMTKT PROC
CALL FMOVE,GTSTRFMT,FTBKT(GTREGDEX)
RET
PEND
*
FRMXKT PROC XKTDEX
CALL FMOVE,GTSTRFMT,FTBXKT(XKTDEX)
RET
PEND
*
FRMTGP PROC
CALL FMOVE,GTSTRFMT,FTBGP(GTREGDEX)
RET
PEND
*
FRMXGP PROC XGPDEX
CALL FMOVE,GTSTRFMT,FTBXGP(XGPDEX)
RET
PEND
*
FRMXBC PROC XBCDEX
CALL FMOVE,GTSTRFMT,FTBXBC(XBCDEX)
RET
PEND
*
*
EJECT
FRM1EL PROC
CALL FMOVE,GTSTRFMT,FTB1EL(GTREGDEX)
RET
PEND
*
FRM2EL PROC
CALL FMOVE,GTSTRFMT,FTB2EL(GTREGDEX)
RET
PEND
*
FRM3EL PROC
CALL FMOVE,GTSTRFMT,FTB3EL(GTREGDEX)
RET
PEND
*
FRM4EL PROC
CALL FMOVE,GTSTRFMT,FTB4EL(GTREGDEX)
RET
PEND
*
FRMXEL PROC XELDEX
CALL FMOVE,GTSTRFMT,FTBXEL(XELDEX)
RET
PEND
*
EJECT
*
* FORMATS FOR JOURNAL
*
FTBJT FTABLE JTFMT01,JTFMT02,JTFMT03,JTFMT04,JTFMT02, C
JTFMT01,JTFMT02,JTFMT08,JTFMT08,JTFMT02, C
JTFMT12,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C
FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C
JTFMT51,FMTFMT,JTFMT51
*
*
JTFMT01 FRMT
FLINK JT0101
FEOR
FLINK JTSUB04 LINE 2
FMEND
*
JTFMT02 FRMT
FLINK JT0201
FEOR
FLINK JT0202
FMEND
*
JTFMT03 FRMT
FLINK JT0301
FEOR
FLINK JT0302
FMEND
*
JTFMT04 FRMT
FLINK JT0401
FEOR
FLINK JT0402
FMEND
*
JTFMT08 FRMT
FLINK JT0101
FEOR
FLINK JTSUB04 LINE 2
FEOR
FLINK JT0803 LINE 3
FEOR
FLINK JT0804 LINE 4
FMEND
*
JTFMT12 FRMT
FLINK JT1201
FEOR
FLINK JT1202
FMEND
*
JTFMT51 FRMT
FLINK JT5101
FEOR
FLINK JT5102
FEOR
FLINK JT5103
FMEND
*
EJECT
JT0101 FRMT TRANS 1 LINE 1
FLINK JTSUBST STARTINF
FLINK JTSUB01 LINE 1
FMEND
*
JT0201 FRMT TRANS 2 LINE 1
FLINK JTSUBST SORTINF
FLINK JTSUB05 REG KONTONO
FILLR ' ',11
FLINK JTSUB08 VALUE
FMEND
*
JT0202 FRMT TRANS 2 LINE 2
FILLR ' ',8
FMEL 'X',GTDUPF(CBIN6) RE$
FILLR ' ',2
FLINK JTSUB06 FOR TRANS 10
FLINK JTSUB30 ARKIV KNT.NR
FILLR ' ',15
FMEND
*
JT0301 FRMT TRANS 3 LINE 1
FLINK JTSUBST START INF
FILLR ' ',10
FCOPY TT16TXT RATE/RENTE/GEBYR
FILLR ' ',3
FLINK JTSUB06 CPR/CIR
FLINK JTSUB08 VALUE
FMEND
*
JT0302 FRMT TRANS 3 LINE 2
FILLR ' ',9
FMEL '99B',GTDUPF(CBIN3) BETALINGSKODE BKO
FMEL 'ZZ.ZZ.ZZ',GTDUPF(CBIN7) VALGR
FMEL 'BBZZ',GTDUPF(CBIN8) BETALINGSFORM BFO
FLINK JTSUB30 ARK KONTO NR
FILLR ' ',2
FMEL 'XX',GTDUPF(CBIN11) PALIGNINGSAR
FILLR ' ',5
FMEL 'ZZZ',GTDUPF(CBIN15) DEB LB NR
FILLR ' ',4
FMEND
*
JT0401 FRMT TRANS 4 LINE 1
FLINK JTSUBST START INF
FILLR ' ',15
FLINK JTSUB06 CPR/CIR
FLINK JTSUB08 VALUE
FMEND
*
JT0402 FRMT TRANS 4 LINE 2
FILLR ' ',6
FMEL '99',GTDUPF(CBIN3) BKO
FILLR ' ',4
FMEL 'ZZ.ZZ.ZZ',GTDUPF(CBIN7) VALOR
FLINK JTSUB30 ARK KNT NR
FMEL 'BBZZ',GTDUPF(CBIN10) F$R
FMEL 'BZZ',GTDUPF(CBIN11) RES $R
FMEL 'BBZZ',GTDUPF(CBIN12) RESM$
FMEL 'BBZZ',GTDUPF(CBIN13) OPK
FMEL 'BBZZ',GTDUPF(CBIN8) BFO
FILLR ' ',1
FMEND
*
JT1201 FRMT TRANS 12 LINE 1
FLINK JTSUBST START INF
FLINK JTSUB05 REG KONTO NR
FMEL 'B999',TTCNTNR T#LLER NR
FILLR ' ',5
FILLR ' ',2
FLINK JTSUB08 VALUE
FMEND
*
JT1202 FRMT TRANS 12 LINE 2
FILLR ' ',2
FMEL 'BZZZZZZZZZZ',GTDUPF(CBIN2) DIVERSE TEXT
FILLR ' ',16
FMEND
*
JT5101 FRMT TRANS 51 LINE 1
FILLR ' ',2
FCOPY GTTESTMK
FILLR ' ',1
FMEL '99B',GTREGNR
FLINK FLBNR LBNR = *****
FLINK JTSUB51
FMEL 'B*.***.***.**9.99-',GTDUPF(CBIN6) FELT 39/47
FMEL 'B*.***.***.**9.99-',TTCYKTOT TOTAL VALUE
FMEND
*
JT5102 FRMT TRANS 51 LINE 2
FILLR ' ',2
FMEL 'XXXB',GTDUPF(CBIN15) FELT 48
FMEL 'XXB',GTDUPF(CBIN3) FELT 7
FMEL 'XB',GTDUPF(CBIN11) FELT 15
FMEL 'XXB',GTDUPF(CBIN4) FELT 36
FMEL 'XXB',GTRTANT ANTAL RATER
FMEL 'XB',GTDUPF(CBIN5) FELT 14
FMEL 'XX.XX.XXB',GTDUPF(CBIN7) FELT 31/40
FMEL 'XXB',GTDUPF(CBIN18) FELT 41
FMEL 'XB',GTDUPF(CBIN9) FELT 30
FMEL 'XXXXXXE-XXXX',GTDUPF(CBIN8) FELT 29
FMEL 'BXB',GTDUPF(CBIN17) FIELD 46
FILLR ' ',6
FMEND
*
JT5103 FRMT TRANS 51 LINE 3
FILLR ' ',2
FMEL 'XXXXXXXXXXB',GTDUPF(CBIN12) FELT 66
FBN GTDUPF(CBIN19),JT51L05
FMEL 'Z.ZZZ.ZZX.XXBB',GTDUPF(CBIN19) FELT 81 >=0
FB JT51L10
JT51L05
FMEL 'Z.ZZZ.ZZX.XXE-B',GTDUPF(CBIN19) FELT 81 <0
JT51L10
FMEL 'XXB',GTDUPF(CBIN16) FELT 27
FMEL 'XB',GTDUPF(CBIN10) FELT 49
FMEL 'XX.XX.XXB',GTDUPF(CBIN20) FELT 43
FMEL 'XX.XX.XXB',GTDUPF(CBIN21) FELT 44
FMEL 'XX.XX.XXB',GTDUPF(CBIN22) FELT 45
FILLR ' ',1
FMEND
*
*
JTSUBST FRMT START INF
FILLR ' ',2
FCOPY GTTESTMK
FCOPY TTCYM CYCLE MARKERING
FMEL '99B',GTREGNR TRANS, TYPE
FLINK FLBNR
FMEND
*
JTSUB01 FRMT LINE 1,- 1,5,6
FLINK JTSUB05 CPR/CIR
FLINK JTSUB06 REG-KONTO-NR
FLINK JTSUB08 VALUE
FMEND
*
JTSUB04 FRMT
FILLR ' ',2
FILLR ' ',4
FMEL 'ZZ',GTDUPF(CBIN3) BKO
FMEL 'BZZ.ZZ.ZZ',GTDUPF(CBIN7) V.DATO
FMEL 'BBX',GTDUPF(CBIN6) RE$
FMEL 'BBX',GTDUPF(CBIN8) BFO
FLINK JTSUB30
FMEL 'XXXXXXE-XXXX',GTDUPF(CBIN10) YD.MODT
FMEL 'BXX',GTDUPF(CBIN11) BET. ART
FMEND
*
JTSUB05 FRMT REG KNT NR
FMEL 'B999E-999E-99E-99B',GTDUPF(CBIN1)
FMEND
*
JTSUB06 FRMT CPR/CIR
FBT BCPR,JTLAB06
FMEL 'XE-XXE-XXE-XXB',GTDUPF(CBIN2)
FB JTLAB08
JTLAB06
FBT BLEV,JTLAB07
FMEL 'XXXXXXE-XXXX',GTDUPF(CBIN2)
FB JTLAB08
JTLAB07
FMEL 'XXX.XXXXX.XXB',GTDUPF(CBIN2)
JTLAB08
FMEND
*
*
JTSUB08 FRMT VALUE AND D/K
FMEL 'B*.***.***.**9.99-',GTDUPF(CBIN4)
FCOPY TTDBKRM
FMEND
*
JTSUB30 FRMT ARK KNT NR
FMEL 'BBZZZE-ZZZE-ZZE-ZZ',GTDUPF(CBIN9)
FMEND
*
JT0803 FRMT LINE 3 - 8
FILLR ' ',2
FMEL 'ZZ.ZZ.ZZ',GTDUPF(CBIN12) FAKT DATO
FMEL 'BZZZZZZZZZZ',GTDUPF(CBIN13) FAKT NR
FMEL 'BZZZZZZZZZZ',GTDUPF(CBIN14) LEV NR
FMEL 'BZZZZ',GTDUPF(CBIN15) TXT NR
FMEL 'BZZ',GTDUPF(CBIN16) OMR NR
FMEND
*
JT0804 FRMT LINE 4 - 8
FILLR ' ',2
FMEL 'BZZ.ZZ.ZZ',GTDUPF(CBIN18) PER FRA
FMEL 'BZZ.ZZ.ZZ',GTDUPF(CBIN19) PER TIL
FMEL 'BZ',GTDUPF(CBIN17) ADR KODE
FMEND
*
JTSUB51 FRMT
FBT BDEB,JTLAB518
FBT BCPR,JTLAB511
FMEL 'BBXE-XXE-XXE-XXB',GTDUPF(CBIN2) CIR NR
FB JTLAB519
JTLAB511
FBT BLEV,JTLAB512
FMEL 'BXXXXXXE-XXXXB',GTDUPF(CBIN2) CPR NR
FB JTLAB519
JTLAB512
FMEL 'BXXXXXXE-XXXXB',GTDUPF(CBIN2) LEV NR
FB JTLAB519
JTLAB518
FMEL 'BXXXE-XXXXE-XXX',GTDUPF(CBIN1) DEB NR
JTLAB519
FMEND
*
EJECT
*
* VARIOUS FORMATS FOR JOURNAL TAPE
*
FTBXJT FTABLE XJTF01,XJTF02,XJTF03,XJTF04,XJTF05,XJTF06, C
XJTF07,FMTFMT,XJTF09,XJTF10,XJTF11,VOX15, C
XJTF13,XJTF14,VOFMT02,XELF12,XELF13
*
XJTF01 FRMT KVITTERING
FILLR ' ',2
FLINK FLBNR
FCOPY =' KVIT'
FMEND
*
XJTF02 FRMT KONTOKORT
FILLR ' ',2
FLINK FLBNR
FILLR ' ',2
FCOPY ='KONTOKORT'
FBF GTSLDFLG,XJTF02EX
FMEL 'B*.***.***.**9.99-',TTKTSLD
XJTF02EX
FMEND
*
XJTF03 FRMT
FILLR ' ',2
FCOPY ='START SUM'
FMEND
*
XJTF04 FRMT
FLINK VOSUM07
FCOPY =' SUM'
FMEND
XJTF05 FRMT
FLINK XJTF05L
FMEND
*
*
XJTF05L FRMT
FILLR ' ',2
FILLR '*',50
FEOR
FILLR ' ',2
FTEXT 'VERSNR '
FCOPY ='DAGS-DATO'
FILLR ' ',2
FCOPY ='POST-DATO'
FILLR ' ',2
FCOPY ='MASKIN NR'
FCOPY =' EKS.LBNR'
FEOR
FILLR ' ',2
FCOPY GTTESTMK
FMEL '99.99.999.9',CVERSNR
FILLR ' ',2
FMEL '99E-99E-99',CMASKDAT
FILLR ' ',3
FMEL '99E-99E-99',GTDATO
FILLR ' ',3
FMEL '999',GTMSK
FILLR ' ',7
FMEL '***99',TTSTLBNR
FILLR ' ',3
FEOR
FILLR ' ',2
FCOPY ='VERSURKONTONR KASSEKONTONR PRIMO KASSE '
FEOR
FILLR ' ',2
FMEL '999E-99999E-99BB',TVERSUR
FMEL '999E-99999E-99BB',TTCASHAC
FMEL 'ZZZ.ZZZ.ZZ9.ZZ-',TTSTCASH
FEOR
FILLR ' ',2
FILLR '*',40
FMEND
*
XJTF06 FRMT
FILLR ' ',2
FILLR '*',50
FEOR
FILLR ' ',2
FCOPY ='KASSELUKNING'
FILLR ' ',30
FEOR
FILLR ' ',2
FCOPY ='T[LLER'
FILLR ' ',10
FCOPY ='DEBET'
FILLR ' ',12
FCOPY ='KREDIT'
FMEND
*
XJTF07 FRMT
FILLR ' ',2
FMEL 'ZZ',GTWBCD1
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(GSWBIN5,CBIN2)
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(GSWBIN5,CBIN1)
FMEND
*
XJTF09 FRMT
FCOPY =' START TEST'
FMEND
*
XJTF10 FRMT
FCOPY =' SLUT TEST'
FMEND
*
XJTF11 FRMT
FILLR ' ',2
FCOPY ='DISK SKIFT '
FMEND
*
XJTF13 FRMT
FILLR ' ',2
FLINK JTSUB05 REG KNT NO
FMEL 'BZZZ',GTDUPF(CBIN2) COUNTER NO
FMEL 'B*.***.***.**9.99-',GTDUPF(CBIN4) VALUE
FILLR ' ',2
FCOPY ='ADM '
FMEL 'BZZ',GTDUPF(CBIN5) ADM NO
FMEND
*
XJTF14 FRMT
FSL
FMEL '99B',GTWBCD2
FCOPY GSWSTR9
FMEL '99',GTWBCD1
FMEND
*
FMTFMT FRMT
FSL
FMEND
EJECT
*
* FORMATS FOR VOUCHER 'BILAG AFSTEMPLING'
*
FTBVO FTABLE BAFST01,BAFST02,BAFST03A,BAFST04,BAFST02, C
BAFST01,BAFST02,BAFST08,BAFST08,BAFST02, C
BAFST12,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C
FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C
FMTFMT,FMTFMT,FMTFMT,FMTFMT
*
*
BAFST01 FRMT TRANS 01-06
FLINK BSUB01 HEADER
FBT TTKORTFL,B1LAB1
FILLR ' ',6
FMEL 'B**B',GTDUPF(CBIN3) BKO
FMEL 'ZZ.ZZ.ZZB',GTDUPF(CBIN7) BET/VALORDATO
FB B1LAB2
B1LAB1
FMEL 'B**B',GTDUPF(CBIN3) BKO
B1LAB2
FLINK JTSUB06 CPR-CIR-NR
FLINK BSUB02 REGKONTO-BELOB
FMEND
*
*
BAFST02 FRMT TRANS 02-05-07-10
FLINK BSUB01 HEADER
FILLR ' ',1
FMEL '******E-****',GTDUPF(CBIN2) CPR/CIR TRANS 10
FILLR '*',3
FBT TTKORTFL,B2LAB1
FILLR '*',13
B2LAB1
FLINK BSUB02 REGKONTO-BELOB
FMEND
*
*
BAFST08 FRMT TRANS 08-09
FLINK BAFST08L
FMEND
*
BAFST08L FRMT
FLINK BSUB01 HEADER
FILLR ' ',1
FMEL 'XX.XXPP',GTDUPF(CBIN7)
FMEL 'BPPXXB',GTDUPF(CBIN15)
FBZ GTUSED(CBIN13),B8LAB1
FMEL 'ZZZZZZZZZZB',GTDUPF(CBIN13) FAKTNR
FB B8LAB5
B8LAB1
FBZ GTUSED(CBIN12),B8LAB2
FMEL 'BBBZZ.ZZ.ZZBB',GTDUPF(CBIN12) FAKTDATO
FB B8LAB5
B8LAB2
FMEL 'ZZZZZ999.99B',GTDUPF(CBIN14) LEVNR
B8LAB5
FMEL 'XXXXXXXXXX',GTDUPF(CBIN2)
FMEL 'B999.99999.99',GTDUPF(CBIN1)
FMEL 'B***.***.**9.99-',GTDUPF(CBIN4)
FCOPY TTDBKRM
FILLR ' ',1
FMEND
*
*
BAFST12 FRMT TRANS 12
FILLR '+',2
FCOPY GTTESTMK
FCOPY TTCYM CYKLE-MARKERING
FMEL '999B',GTMSK MASKINNR
FLINK FLBNR
FMEL 'B99.99.99',GTDATO POSTERINGSDATO
FCOPY TTSUPMRK SUPPLEMENTS-MARK
FMEL '99',GTREGNR TRANSTYPE-NR
FMEL 'B999',TTCNTNR TAELLER-NR
FMEL 'BZZZZZZZZZZ',GTDUPF(CBIN2) DIVERSE TEXT
FBT TTKORTFL,B12LAB1
FILLR '*',13
B12LAB1
FLINK BSUB02 REGKONTO-BELOB
FMEND
*
*
BAFST03 FRMT BILAG TRANS 3
FLINK BSUB10
FLINK BSUB11
FLINK BSUB13
FMEND
BAFST03A FRMT
FLINK BSUB10
FMEL 'XX.',GTDUPF(CBIN8) BETALINGSKILDE
FLINK BSUB11
FLINK BSUB13
FMEND
*
BAFST04 FRMT BILAG TRANS 4
FLINK BSUB10
FLINK BSUB12
FLINK BSUB13
FMEND
*
*
BSUB01 FRMT HEADER
FILLR '+',2
FCOPY GTTESTMK
FCOPY TTCYM CYKLE-MARKERING
FMEL '999B',GTMSK MASKINNR
FLINK FLBNR
FMEL 'B99.99.99',GTDATO POSTERINGSDATO
FCOPY TTSUPMRK SUPPLEMENTS-MARK
FMEL '99',GTREGNR TRANSTYPE-NR
FMEND
*
BSUB02 FRMT
FMEL 'B999.99999.99',GTDUPF(CBIN1) REGKONTONR
FMEL 'B*.***.***.**9.99-',GTDUPF(CBIN4) BELOB
FCOPY TTDBKRM DEBET/KREDIT-MARK
FILLR ' ',1
FMEND
*
*
BSUB04 FRMT
FCOPY GTTESTMK
FCOPY TTCYM
FMEL '99.99.99B',GTDATO POSTERINGSDATO
FCOPY CKMDNAM
FMEL 'B999B',GTMSK MASKINNR
FMEL '99B',GTDUPF(CBIN3) BKO
FMEND
*
*
BSUB05 FRMT
FLINK FLBNR
FMEL 'B*.***.***.**9.99-',GTDUPF(CBIN4) BELOB
FCOPY TTDBKRM DEBET/KREDIT-MARK
FILLR ' ',1
FMEND
*
*
BSUB06 FRMT
FMEL 'B99B',GTDUPF(CBIN3) BKO
FBT TTKORTFL,B6LAB1
FCOPY TT07TXT
FILLR ' ',1
FMEL 'ZZ.ZZ.ZZ',GTDUPF(CBIN7) VAL. DATO
B6LAB1
FMEND
*
*
BSUB07 FRMT
FILLR ' ',1
FLINK JTSUB06 CPR/CIR-NR
FMEL 'B*.***.***.**9.99-',GTDUPF(CBIN4) BELOB
FCOPY TTDBKRM DEBET/KREDIT-MARK
FILLR ' ',1
FLINK SKAF01 LINE NR
FMEND
*
BSUB10 FRMT
FILLR '+',2
FCOPY GTTESTMK TEST MARK
FMEL '999B',GTMSK MASKINNR
FLINK FLBNR
FMEL 'B99.99.99',GTDATO POSTDATO
FMEL 'BXX.',GTDUPF(CBIN3) BKO
FMEND
*
BSUB11 FRMT
FMEL 'XX',GTDUPF(CBIN11) P]L]R
FMEL 'E-9999999999B',GTDUPF(CBIN2) DEBITOR NR
FMEL 'XX.XXPP',GTDUPF(CBIN7) VALOERDATO
FMEL 'BXB',GTDUPF(CBIN12) RTE/GEB
FMEND
*
BSUB12 FRMT
FBF TTASKAT,B12LAB5
FMEL 'XX',GTDUPF(CBIN11) REST]R
FB B12LAB6
B12LAB5
FMEL 'XX',GTDUPF(CBIN10) FORFALDS]R
B12LAB6
FMEL 'E-9999999999B',GTDUPF(CBIN2) DEBITORNR
FMEL 'XX.XXPP',GTDUPF(CBIN7) VALOERDATO
FILLR ' ',3
FMEND
*
BSUB13 FRMT
FMEL '*.***.***.**9.99-',GTDUPF(CBIN4) VALUE
FCOPY TTDBKRM
FILLR ' ',1
FMEND
*
FLBNR FRMT EKSP LB. NR.
FBT GTSPECTR,FLBNR50
FBT GTLOKSPG,FLBNR10
FMEL '****9',TTLBNR
FB FLBNR20
FLBNR10
FMEL '****9',GTLBNR
FLBNR20
FB FLBNR90
FLBNR50
FILLR '*',5
FB FLBNR90
FLBNR90
FMEND
*
EJECT
*
* VARIOUS FORMATS FOR VOUCHER
*
FTBXVO FTABLE FMTFMT,VOFMT02,VOFMT02,BAXF04,BAXF05, C
BAXF06,VOSUM07,VOX08,VOX09,VOX10, C
VOX11,VOX12,VOX13,VOX14,VOX15, C
VOX16,VOX17,VOX18,VOX19
*
*
VOFMT02 FRMT TOTAL IN CYCLE
FILLR '+',2
FBF TTCY1FLG,VOLAB02
FCOPY ='ARKIV'
FLINK JTSUB30
VOLAB02
FILLR ' ',4
FCOPY GSWSTR9
FMEL '*.***.***.**9.99+',TTCYKTOT
FILLR ' ',2
FMEND
*
BAXF04 FRMT
FLINK BAFST03
FLINK BAXF05L
FMEND
*
BAXF05 FRMT
FILLR '+',2
FLINK BAXF05L
FMEND
*
BAXF05L FRMT
FLINK BSUB04
FEOR
FILLR '0',2
FLINK BSUB05
FMEND
*
BAXF06 FRMT
FLINK BAFST03A
FEOR
FILLR '0',2
FEOR
FILLR '0',2
FEOR
FLINK KVIT03
FMEND
*
VOSUM07 FRMT SUMBILAG
FILLR '+',2
FMEL '999B',GTMSK MASKINNR
FMEL 'B99.99.99B',GTDATO EKSP.LB.NR
FMEL '****9',GTSUMST
FCOPY ='-'
FLINK FLBNR
FILLR ' ',1
FCOPY GSWSTR9
FMEL '*.***.***.**9,99+',GTSUMCNT
FILLR ' ',2
FMEND
*
VOX08 FRMT
FLINK VOX08L
FMEND
*
VOX08L FRMT
FILLR '+',2
FCOPY GTTESTMK
FMEL '999B',GTMSK
FMEL 'B99.99.99',GTDATO
FMEL 'BBZ999',CKMDNR
FMEL 'BB****9',TTSTLBNR
FTEXT ' - '
FLINK FLBNR
FILLR ' ',2
FCOPY GSWSTR9
FILLR ' ',2
FCOPY GSWSTR20 TEXT
FEOR
FILLR '2',2
FILLR '*',60
FILLR '*',8
FEOR
FILLR '4',2
FCOPY ='KONTONR'
FILLR ' ',6
FCOPY ='T[LLER'
FILLR ' ',9
FTEXT 'NETTO'
FILLR ' ',12
FCOPY ='DEBET'
FILLR ' ',12
FCOPY ='KREDIT'
FMEND
*
VOX09 FRMT
FILLR '2',2
FMEL 'XXXE-XXXXXE-XX',GTDUPF(CBIN1)
FILLR ' ',4
FMEL '99',GTWBCD1
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN4) NETTO
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',C12ACC(GSWBIN5,CBIN2) DEBET
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',C12ACC(GSWBIN5,CBIN1) KREDIT
FMEND
*
VOX10 FRMT
FILLR '2',2
FMEL 'ZZ',GTWBCD1
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN4)
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(GSWBIN5,CBIN2)
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(GSWBIN5,CBIN1)
FMEND
*
VOX11 FRMT
FLINK VOX11L
FMEND
*
VOX11L FRMT
FILLR '4',2
FTEXT 'TOTAL'
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN4)
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTREGF(CBIN2)
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTREGF(CBIN1)
FEOR
FILLR '4',2
FTEXT 'SUPL '
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN5)
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(CBIN8,CBIN2)
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(CBIN8,CBIN1)
FEOR
FILLR '2',2
FTEXT 'KOR'
FILLR ' ',19
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(CBIN7,CBIN2)
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(CBIN7,CBIN1)
FMEND
*
VOX12 FRMT
FLINK VOX12L
FMEND
*
VOX12L FRMT
FILLR '4',2
FMEL '999E-99999E-99',TTCASHAC
FILLR ' ',1
FTEXT ' PRIMO'
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTSTCASH
FILLR ' ',34
FEOR
FILLR '2',2
FTEXT 'BEV '
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN4)
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN5)
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN6)
FEOR
FILLR '2',2
FTEXT 'ULTIMO'
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTCASH
FILLR ' ',34
FMEND
*
VOX13 FRMT
FLINK VOX13L
FMEND
*
VOX13L FRMT
FILLR ' ',2
FCOPY GTTESTMK
FMEL '999B',GTMSK
FMEL 'B99.99.99',GTDATO
FILLR ' ',2
FCOPY ='BEHOLDNINGST[LLERE'
FILLR ' ',2
FCOPY GSWSTR20
FILLR ' ',3
FEOR
FILLR '2',2
FILLR '*',56
FEOR
FILLR '4',2
FCOPY ='T[LLER'
FILLR ' ',4
FCOPY ='KONTONR'
FILLR ' ',10
FCOPY ='BEV.PERIODE'
FILLR ' ',12
FCOPY ='SALDO'
FILLR ' ',1
FMEND
*
VOX14 FRMT
FILLR '2',2
FMEL 'ZZ',GTWBCD1
FILLR ' ',4
FMEL 'XXXE-XXXXXE-XX',CBACC(GSWBIN3,CBIN1)
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',CBACC(GSWBIN3,CBIN2)
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',CBACC(GSWBIN3,CBIN3)
FMEND
*
VOX15 FRMT
FILLR '2',2
FCOPY GSWSTR20
FMEND
*
VOX16 FRMT
FILLR ' ',2
FILLR X'24',40 NO.
FILLR X'3C',40 5.
FNL
FNL
FILLR X'5D',40 ]
FILLR X'4E',40 N
FNL
FNL
FILLR X'45',40 E
FILLR X'53',40 S
FNL
FNL
FILLR X'5B',40 [
FILLR X'5C',40 OE
FMEND
*
VOX17 FRMT
FILLR '+',2
FMEL '99E-99E-99',GTDATO POSTERINGSDATO
FILLR ' ',6
FLINK FLBNR
FILLR ' ',8
FMEL 'B*.***.***.**9E,99',GTDUPF(CBIN4) BELOB
FILLR '*',2
FILLR ' ',3
FMEL 'ZZ999999',GTDUPF(CBIN2) CHECKNR(DIV.TXT)
FILLR ' ',8
FMEND
*
VOX18 FRMT
FILLR '2',2
FILLR ' ',17
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GSWBCD6
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GSWBCD7
FMEND
*
VOX19 FRMT SHORT TR 2,5,7,10
FLINK BSUB01
FLINK BSUB02
FMEND
*
EJECT
*
* FORMATS FOR EXTRA 'KVITTERING'
* (MOSTLY AS NORMAL 'BILAG'
*
FTBKV FTABLE BAFST01,BAFST02,KVIT03,KVIT03,BAFST02, C
BAFST01,BAFST02,BAFST08,BAFST08,BAFST02, C
BAFST12
*
*
KVIT03 FRMT
FILLR '+',2
FLINK BSUB04
FLINK BSUB05
FMEND
*
EJECT
*
* FORMATS FOR KONTOKORT
*
FTBKT FTABLE KAFST01,KAFST02,KAFST03,KAFST04,KAFST00, C
KAFST01,KAFST00,KAFST01,KAFST01,KAFST02, C
KAFST12,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C
FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C
KAFST51,FMTFMT,KAFST53
*
*
KAFST00 FRMT
FMEND
*
*
KAFST01 FRMT TRANS 01-06
FLINK BAFST01
FLINK SKAF01 LINE NR
FMEND
*
*
KAFST02 FRMT TRANS 02
FLINK BAFST02
FLINK SKAF01 LINE NR
FMEND
*
KAFST12 FRMT TRANS 12
FLINK BAFST12
FLINK SKAF01 LINE NR
FMEND
*
*
KAFST03 FRMT TRANS 03
FLINK BSUB01 HEADER
FLINK BSUB06
FBF TTKORTFL,KLAB31
FMEL 'XX.XXPP',GTDUPF(CBIN7) VAL.DATE, DD.MM
FMEL 'BXX',GTDUPF(CBIN11) PALIGNINGS$R
FCOPY TT16TXT RENTE/GEBYR/INDB
FB KLAB32
KLAB31
FCOPY TT16TXT RENTE/GEBYR/INDB
FMEL 'X',GTDUPF(CBIN11) PALIGNINGSAAR
FMEL 'BXXX',GTDUPF(CBIN15) DEB LB. NR
KLAB32
FLINK BSUB07 CPR/CIR/BELOB/LINIENR
FMEND
*
*
KAFST04 FRMT TRANS 04
FLINK KAFST04L
FMEND
*
KAFST04L FRMT
FLINK BSUB01 HEADER
FLINK BSUB06 BETART/DATO
FBF TTKORTFL,KLAB40
FMEL 'XX.XXPP',GTDUPF(CBIN7) VAL DATE, DD.MM
FB KLAB401
KLAB40
FILLR ' ',1
KLAB401
FBF TTASKAT,KLAB41
FMEL 'B**',GTDUPF(CBIN12) REST.MAANED - CIR
FMEL 'B**',GTDUPF(CBIN11) REST.AAR - CIR
FB KLAB42
KLAB41
FILLR ' ',3
FMEL 'B**',GTDUPF(CBIN10) FORF.AAR - CPR, BSKAT
KLAB42
FLINK BSUB07 CPR/CIR-BELOB-LINIENR
FMEND
*
KAFST51 FRMT
FLINK KSUB01
FTEXT 'P]'
FLINK KSUB02
FMEND
*
KAFST53 FRMT
FLINK KSUB01
FTEXT '[N'
FLINK KSUB02
FMEND
*
*
*
SKAF01 FRMT
FBF CKTFLAG,SKAF02
FBT GTSLDFLG,SKAF04
FILLR ' ',13
FB SKAF03
SKAF04
FMEL '*.***.***.**9.99-',TTKTSLD SALDO
SKAF03
FMEL 'B99.',TTKTLIN NEW LINE
FMEL '9',TTKTCHK CHECK DIGIT
FB SKAF05
SKAF02
FMEL '99B',TTKTLIN
SKAF05
FMEND
*
KSUB01 FRMT
FILLR '+',2
FCOPY GTTESTMK
FMEL '999B',GTMSK MASKINNR
FILLR '*',5
FMEL 'B99.99.99',GTDATO POSTERINGDATO
FILLR ' ',1
FMEL '99B',GTREGNR TRANSTYPE NR
FMEL '**B',GTDUPF(CBIN3) BKO
FMEND
*
KSUB02 FRMT
FMEL 'B99.99.99',GTDUPF(CBIN7) FELT 31, P]LIG.DAT.
FMEL 'B**E-',GTRTANT ANTAL
FMEL '**',GTDUPF(CBIN4) RATE NR
FMEL 'BXXX',GTDUPF(CBIN15) DEB.LB. NR
FLINK JTSUB51
FMEL 'B*.***.***.**9.99-',TTCYKTOT TOTAL VALUE
FILLR ' ',2
FMEL '99B',TTKTLIN
FMEND
*
EJECT
*
* VARIOUS FORMATS FOR 'KONTOKORT'
*
FTBXKT FTABLE XKTTRP
*
XKTTRP FRMT
FILLR '+',2
FMEL 'B99.99.99',GTDATO
FILLR ' ',44
FMEL '*.***.***.**9.99-',TTKTSLD
FILLR ' ',2
FCOPY ='TRP '
FMEND
*
* FORMATS FOR TALLY ROLL
*
FTBTA FTABLE FMTFMT
*
*
*
* VARIOUS FORMATS FOR TALLY ROLL
*
*
FTBXTA FTABLE TAFMT01,TAFMT02,TAFMT02,TAFMT04,TAFMT05, C
VOX15,TAFMT07
*
TAFMT01 FRMT
FSL
FNL
FNL
FILLR '*',1
FILLR ' ',1
FMEND
*
TAFMT02 FRMT
FILLR '0',2
FCOPY GSWSTR9
FMEL '*.***.***.**9.99+B',GSWBCD6
FLINK TAFMT07
FMEND
*
TAFMT04 FRMT
FILLR '+',2
FMEL 'Z.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN4)
FCOPY TTDBKRM
FMEND
*
TAFMT05 FRMT
FILLR '+',2
FMEL 'Z.ZZZ.ZZZ.ZZ9.99-',GSWBCD6
FILLR ' ',1
FMEND
*
TAFMT07 FRMT
FNL
FNL
FNL
FNL
FNL
FNL
FNL
FMEND
*
* FORMATS FOR GENERAL PRINTER
*
FTBGP FTABLE FMTFMT
*
*
*
* VARIOUS FORMATS FOR GENERAL PRINTER
*
FTBXGP FTABLE FMTFMT
*
*
*
EJECT
FTBXBC FTABLE XJTF01,XJTF02,XJTF03,XJTF04,XJTF05,XJTF06, C
XJTF07,FMTFMT,XJTF09,XJTF10,XJTF11,FBC012, C
FBC013,FBC014,VOFMT02
*
*
FBC012 FRMT
FNL
FCOPY GSWSTR20
FNL
FMEND
*
*
FBC013 FRMT
FNL
FCOPY CPRTBUF
FNL
FMEND
*
*
FBC014 FRMT
FNL
FMEL '99B',GTWBCD2
FCOPY GSWSTR9
FMEL '99',GTWBCD1
FNL
FMEND
*
*
EJECT
FTB1EL FTABLE JT0101,JT0201,JT0301,JT0401,JT0201, C
JT0101,JT0201,JT0101,JT0101,JT0201, C
JT1201,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C
FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C
JT5101,FMTFMT,JT5101
*
*
FTB2EL FTABLE JTSUB04,JT0202,JT0302,JT0402,JT0202, C
JTSUB04,JT0202,JTSUB04,JTSUB04,JT0202, C
JT1202,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C
FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C
JT5102,FMTFMT,JT5102
*
*
FTB3EL FTABLE FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C
FMTFMT,FMTFMT,JT0803,JT0803,FMTFMT, C
FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C
FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C
JT5103,FMTFMT,JT5103
*
*
FTB4EL FTABLE FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C
FMTFMT,FMTFMT,JT0804,JT0804,FMTFMT, C
FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C
FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C
FMTFMT,FMTFMT,FMTFMT
*
*
FTBXEL FTABLE XJTF01,XJTF02,XJTF09,XJTF10,XJTF11, C
VOX15,XJTF13,XJTF14,VOFMT02,XJTF03, C
XJTF04,XELF12,XELF13
*
*
XELF12 FRMT
FCOPY =' START '
FCOPY ='EL. JOURNAL '
FMEND
*
*
XELF13 FRMT
FCOPY =C' SLUT '
FCOPY ='EL. JOURNAL '
FMEND
*
*
*
*
END