|
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: 32494 (0x7eee)
Notes: pts_type(SC)
Names: »DIV487.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »DIVFMT/DIV487.SC«
IDENT DIV487 820621 NJ
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 FRMBUD
ENTRY FRMBUP
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,FMTFMT
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,FMTFMT
RET
PEND
*
FRMXGP PROC XGPDEX
CALL FMOVE,GTSTRFMT,FMTFMT
RET
PEND
*
FRMBUD PROC BUDDEX
CALL FMOVE,GTSTRFMT,FTBBUD(BUDDEX)
RET
PEND
*
FRMBUP PROC
CALL FMOVE,GTSTRFMT,FRMBPR
RET
PEND
EJECT
*
* FORMATS FOR JOURNAL
*
FTBJT FTABLE JTFMT01,JTFMT02,JTFMT03,JTFMT04,JTFMT02, C
JTFMT01,JTFMT02,JTFMT08,JTFMT08,JTFMT02, C
JTFMT12,JTFMT18,JTFMT18,JTFMT18,JTFMT18
*
JTFMT01 FRMT
FLINK JTSUBST STARTINF
FLINK JTSUB01 LINE 1
FEOR
FLINK JTSUB04 LINE 2
FMEND
*
JTFMT02 FRMT
FLINK JTSUBST SORTINF
FLINK JTSUB05 REG KONTONO
FILLR ' ',11
FLINK JTSUB08 VALUE
FEOR
FILLR ' ',8
FMEL 'X',GTDUPF(CBIN6) RE$
FILLR ' ',2
FLINK JTSUB06 FOR TRANS 10
FLINK JTSUB30 ARKIV KNT.NR
FILLR ' ',15
FMEND
*
JTFMT03 FRMT
FLINK JTSUBST START INF
FILLR ' ',9
FCOPY TT16TXT RATE/RENTE/GEBYR
FLINK JTSUB06 CPR/CIR
FLINK JTSUB08 VALUE
FEOR
FILLR ' ',2
FILLR ' ',4
FMEL '99',GTDUPF(CBIN3) BETALINGSKODE BKO
FILLR ' ',5
FMEL 'ZZ.ZZ.ZZ',GTDUPF(CBIN7) VALGR
FMEL 'BZZ',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
*
JTFMT04 FRMT
FLINK JTSUBST START INF
FILLR ' ',15
FLINK JTSUB06 CPR/CIR
FLINK JTSUB08 VALUE
FEOR
FILLR ' ',2
FILLR ' ',4
FMEL '99',GTDUPF(CBIN3) BKO
FILLR ' ',5
FMEL 'ZZ.ZZ.ZZ',GTDUPF(CBIN7) VALOR
FILLR ' ',3
FLINK JTSUB30 ARK KNT NR
FMEL 'BBZZ',GTDUPF(CBIN10) F$R
FMEL 'BZZ',GTDUPF(CBIN11) RES $R
FMEL 'BZZ',GTDUPF(CBIN12) RESM$
FMEL 'BZZ',GTDUPF(CBIN13) OPK
FMEL 'BZZ',GTDUPF(CBIN8) BFO
FMEND
*
JTFMT08 FRMT
FLINK JTSUBST START INF
FLINK JTSUB01 LINE 1
FEOR
FLINK JTSUB04 LINE 2
FEOR
FLINK JTSUB31 LINE 3
FMEND
*
JTFMT12 FRMT
FLINK JTSUBST START INF
FLINK JTSUB05 REG KONTO NR
FMEL 'B999',TTCNTNR T#LLER NR
FILLR ' ',5
FILLR ' ',2
FLINK JTSUB08 VALUE
FEOR
FILLR ' ',2
FMEL 'BZZZZZZZZZZ',GTDUPF(CBIN2) DIVERSE TEXT
FILLR ' ',16
FMEND
*
JTFMT18 FRMT TRANS 18,19,28,29
FLINK JTFMT01 2 LINES AS TRANS 1,6
FEOR
FLINK JTSUB18 3 LINIE
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-99E-999E-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
*
JTSUB10 FRMT LEVERANDOER NR
FMEL 'XXXXXXXXE-XX',GTDUPF(CBIN2)
FMEND
*
JTSUB18 FRMT
FILLR ' ',2
FMEL 'XXX',GTDUPF(CBIN15) TXT
FMEL 'BXXXXXXXXXX',GTDUPF(CBIN13) NR-
FMEL 'BXXXXXXXXXX',GTDUPF(CBIN14) NR-2
FMEL 'BXX.XX.XX',GTDUPF(CBIN18) DATO-1
FMEL 'BXX.XX.XX',GTDUPF(CBIN19) DATO-2
FMEND
*
JTSUB30 FRMT ARK KNT NR
FMEL 'BBZZZE-ZZE-ZZZE-ZZ',GTDUPF(CBIN9)
FMEND
*
JTSUB31 FRMT LINE 3 - 8
FILLR ' ',2
FMEL 'ZZ.ZZ.ZZ',GTDUPF(CBIN12) FAKT DATO
FMEL 'BZZZZZZZZZZ',GTDUPF(CBIN13) FAKT NR
FMEL 'BZZZZZZZZ',GTDUPF(CBIN14) LEV NR
FMEL 'BZZZZ',GTDUPF(CBIN15) TXT NR
FMEL 'BZZ',GTDUPF(CBIN16) OMR NR
FMEL 'BZZ.ZZ.ZZ',GTDUPF(CBIN18) PER FRA
FMEL 'BZZ.ZZ.ZZ',GTDUPF(CBIN19) PER TIL
FMEL 'BZ',GTDUPF(CBIN17) ADR KODE
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,XJTF16
*
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 ='DISKETTE 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
*
XJTF16 FRMT
FILLR ' ',2
FMEL '****9',CCHKLBNR
FCOPY =' CHECK'
FMEND
*
FMTFMT FRMT
FILLR ' ',2
FTEXT 'DIVERSE FORMATER'
FMEND
EJECT
*
* FORMATS FOR VOUCHER 'BILAG AFSTEMPLING'
*
FTBVO FTABLE BAFST01,BAFST02,BAFST03,BAFST04,BAFST02, C
BAFST01,BAFST02,BAFST08,BAFST08,BAFST02, C
BAFST12,BAFST01,BAFST01,BAFST01,BAFST01
*
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 BSUB01 HEADER
FMEL 'BBB**B',GTDUPF(CBIN3) BKO
FBZ GTUSED(CBIN13),B8LAB1
FMEL 'ZZZZZZZZZZB',GTDUPF(CBIN13) FAKTNR
FB B8LAB5
B8LAB1
FBZ GTUSED(CBIN12),B8LAB2
FMEL 'BBZZ.ZZ.ZZBBB',GTDUPF(CBIN12) FAKTDATO
FB B8LAB5
B8LAB2
FMEL 'ZZZZ9999.99B',GTDUPF(CBIN14) LEVNR
B8LAB5
FLINK JTSUB10 LEVERAND.
FLINK BSUB02 REGKONTO-BELOB
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
*
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.99B',GTDUPF(CBIN1) REGKONTONR
FMEL '*.***.***.**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
FTEXT 'TRANEK'
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.ZZB',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 GTLOKSPG,FLBNR10
FMEL '****9',TTLBNR
FB FLBNR20
FLBNR10
FMEL '****9',GTLBNR
FLBNR20
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,VOX20,VOX20
*
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 BAFST03
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
FILLR '-',1
FLINK FLBNR
FILLR ' ',1
FCOPY ='TOTAL '
FMEL '*.***.***.**9,99+',GTSUMCNT
FILLR ' ',2
FMEND
*
VOX08 FRMT
FLINK VOX08L
FMEND
*
VOX08L FRMT
FILLR '+',2
FCOPY GTTESTMK
FMEL '999',GTMSK
FMEL 'BB99.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
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
*
VOX20 FRMT
FILLR '2',2
FBF GTDYFLG,V20L10
FCOPY ='TOTAL'
FILLR ' ',59
FEOR
FILLR '2',2
V20L10
FMEL 'XXXE-XXXXXE-XX',GTDUPF(CBIN1)
FILLR ' ',4
FMEL 'XX',GTWBCD1
FBT GTSWFLAG,V20L20
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9,99-',GTDUPF(CBIN4)
FILLR ' ',35
FB V20L90
V20L20
FILLR ' ',17
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9,99-',GTDUPF(CBIN5)
FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9,99-',GTDUPF(CBIN6)
V20L90
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,BAFST01,BAFST01,BAFST01,BAFST01
*
*
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,KAFST01,KAFST01,KAFST01,KAFST01
*
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
KLAB31
FMEL 'BXX',GTDUPF(CBIN11) PALIGNINGS$R
FCOPY TT16TXT RENTE/GEBYR/INDB
FLINK BSUB07 CPR/CIR/BELOB/LINIENR
FMEND
*
KAFST04 FRMT TRANS 04
FLINK BSUB01 HEADER
FLINK BSUB06 BETART/DATO
FBF TTKORTFL,KLAB40
FMEL 'XX.XXPP',GTDUPF(CBIN7) VAL DATE, DD.MM
KLAB40
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
*
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
EJECT
*
* VARIOUS FORMATS FOR 'KONTOKORT'
*
FTBXKT FTABLE XKTTRP
*
XKTTRP FRMT
FILLR '+',2
FMEL 'BB99.99.99',GTDATO
FILLR ' ',43
FMEL '*.***.***.**9.99-',TTKTSLD
FILLR ' ',2
FCOPY ='TRP '
FMEND
EJECT
*
* 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
EJECT
FTBBUD FTABLE PB40FRM2,PB41FRM2,PB41FRM2,FMTFMT,FMTFMT, C
PB45FRM2,PB46FRM2,PB47FRM2,PB48FRM2,PB48FRM2, C
PB40FRM3,PB40FRM3,PB40FRM3,FMTFMT,FMTFMT, C
PB45FRM3,PB46FRM3,PB47FRM3,PB48FRM3,PB48FRM3
PB40FRM2 FRMT
FLINK BUSUB0
FLINK BUSUB11
FLINK BUSUB12
FMEND
PB40FRM3 FRMT
FLINK BUSUB0
FLINK BUSUB22
FMEND
PB41FRM2 FRMT
FLINK BUSUB0
FLINK BUSUB17
FMEND
PB45FRM2 FRMT
FLINK BUSUB0
FLINK BUSUB15
FLINK BUSUB13
FMEND
PB45FRM3 FRMT
FLINK BUSUB0
FILLR ' ',35
FMEL 'BZZZZVZZZVZZZ-',GTREGF(CBIN18)
FMEND
PB46FRM2 FRMT
FLINK BUSUB0
FLINK BUSUB15
FILLR ' ',3
FMEL 'ZZZ9',GTREGF(CBIN13) DETALJ. KODE
FILLR ' ',2
FLINK BUSUB13
FMEND
PB46FRM3 FRMT
FLINK BUSUB0
FILLR ' ',44
FMEL 'BZZZZVZZZVZZ9-',GTREGF(CBIN18)
FMEND
PB47FRM2 FRMT
FLINK BUSUB0
FMEL '99',GTREGF(CBIN14) YEAR
FILLR ' ',2
FLINK BUSUB13
FMEND
PB47FRM3 FRMT
FLINK BUSUB0
FILLR ' ',24
FMEL 'BZZZZVZZZVZZ9-',GTREGF(CBIN18)
FMEND
PB48FRM2 FRMT
FLINK BUSUB0
FLINK BUSUB14
FLINK BUSUB16
FMEND
PB48FRM3 FRMT
FLINK BUSUB0
FILLR ' ',22
FMEL 'BZZZZVZZZVZZ9-',GTREGF(CBIN18)
FMEND
BUSUB0 FRMT
FMEL '99',GTREGNR
FMEND
BUSUB11 FRMT
FMEL '9',GTREGF(CBIN12)
FMEL 'B999E-99E-999E-99B',GTREGF(CBIN1)
FMEND
BUSUB12 FRMT
FILLR '*',1
FMEL 'ZZZZZZZZZX-',GTREGF(CBIN3)
FMEL 'ZZZZZZZZZX-',GTREGF(CBIN4)
FMEL 'ZZZZZZZZZX-',GTREGF(CBIN5)
FMEL 'ZZZZZZZZZX-',GTREGF(CBIN6)
FMEL 'ZZZZZZZZZX-',GTREGF(CBIN7)
FMEL 'ZZZZZZZZZX-',GTREGF(CBIN8)
FMEL 'ZZZZZZZZZX-',GTREGF(CBIN9)
FMEL 'ZZZZZZZZZX-',GTREGF(CBIN10)
FEOR
FMEND
BUSUB13 FRMT
FILLR '*',1
FILLR ' ',3
FMEL '999E-99E-999E-99',GTREGF(CBIN1)
FILLR ' ',3
FMEL 'BZZZZVZZZVZZX-',GTREGF(CBIN17)
FEOR
FMEND
BUSUB14 FRMT
FMEL '99V99V99',GTREGF(CBIN11) DATE
FILLR ' ',3
FMEND
BUSUB15 FRMT
FLINK BUSUB14
FMEL '99',GTREGF(CBIN14) YEAR
FILLR ' ',2
FMEND
BUSUB16 FRMT
FILLR '*',1
FILLR ' ',3
FMEL '9999',GTREGF(CBIN1)
FILLR ' ',3
FMEL 'BZZZZVZZZVZZX-',GTREGF(CBIN4)
FEOR
FMEND
BUSUB17 FRMT
FLINK BUSUB11
FMEL '9B9999B999B99',GTREGF(CBIN2)
FILLR ' ',1
FLINK BUSUB12
FMEND
BUSUB22 FRMT
FILLR '*',1
FMEL 'ZZZZZZZZZ9-',GTREGF(CBIN14)
FMEL 'ZZZZZZZZZ9-',GTREGF(CBIN15)
FMEL 'ZZZZZZZZZ9-',GTREGF(CBIN16)
FMEL 'ZZZZZZZZZ9-',GTREGF(CBIN17)
FMEL 'ZZZZZZZZZ9-',GTREGF(CBIN18)
FMEL 'ZZZZZZZZZ9-',GTREGF(CBIN19)
FMEL 'ZZZZZZZZZ9-',GTREGF(CBIN20)
FMEL 'ZZZZZZZZZ9-',GTREGF(CBIN21)
FEOR
FMEND
FRMBPR FRMT
FILLR '+',2
FCOPY GSWSTR20
FILLR ' ',5
FMEL 'XXVXXVXX',CMASKDAT
FNL
FNL
FNL
FMEND
END