|
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: 33368 (0x8258)
Notes: pts_type(SC)
Names: »DIV461.SC«
└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
└─⟦this⟧ »OD-KOM/DIV461.SC«
IDENT DIV461 831005 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
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
*
* 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,JTFMT53
*
*
JTFMT01 FRMT
FLINK JTSUBST STARTINF
FLINK JTSUB01 LINE 1
FEOR
FLINK JTSUB04 LINE 2
FMEND
*
JTFMT02 FRMT
FLINK JTFMT02L
FMEND
*
JTFMT02L 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 JTFMT03L
FMEND
*
JTFMT03L FRMT
FLINK JTSUBST START INF
FILLR ' ',10
FCOPY TT16TXT RATE/RENTE/GEBYR
FLINK JTSUB06 CPR/CIR
FLINK JTSUB08 VALUE
FEOR
FILLR ' ',6
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 JTFMT04L
FMEND
*
JTFMT04L FRMT
FLINK JTSUBST START INF
FILLR ' ',15
FLINK JTSUB06 CPR/CIR
FLINK JTSUB08 VALUE
FEOR
FILLR ' ',2
FMEL '99',GTDUPF(CBIN3) BKO
FILLR ' ',4
FMEL 'ZZ.ZZ.ZZ',GTDUPF(CBIN7) VALOR
FILLR ' ',3
FLINK JTSUB30 ARK KNT NR
FMEL 'BBZZ',GTDUPF(CBIN10) F$R
FMEL 'BBZZ',GTDUPF(CBIN11) RES $R
FMEL 'BBZZ',GTDUPF(CBIN12) RESM$
FMEL 'BBZZ',GTDUPF(CBIN13) OPK
FMEL 'BBZZ',GTDUPF(CBIN8) BFO
FILLR ' ',1
FMEND
*
JTFMT08 FRMT
FLINK JTFMT08L
FMEND
*
JTFMT08L FRMT
FLINK JTSUBST START INF
FLINK JTSUB01 LINE 1
FEOR
FLINK JTSUB04 LINE 2
FEOR
FLINK JTSUB31 LINE 3
FMEND
*
JTFMT12 FRMT
FLINK JTFMT12L
FMEND
*
JTFMT12L 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
*
JTFMT51 FRMT
FLINK JTFMT51L
FMEND
*
JTFMT51L FRMT
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
FEOR
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
FEOR
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
*
JTFMT53 FRMT
FLINK JTFMT51L
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
*
JTSUB31 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
FEOR
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
*
XJTF01 FRMT KVITTERING
FILLR ' ',2
FLINK FLBNR
FCOPY =' KVIT'
FMEND
*
XJTF02 FRMT KONTOKORT
FILLR ' ',2
FLINK XJTF02L
FMEND
*
XJTF02L FRMT
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
FLINK XJTF06L
FMEND
*
XJTF06L 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
FLINK XJTF07L
FMEND
*
XJTF07L 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 XJTF13L
FMEND
*
XJTF13L FRMT
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
FLINK FMTFMTL
FMEND
*
FMTFMTL FRMT
FILLR ' ',2
FTEXT 'DIVERSE FORMATER'
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 BAFST01L
FMEND
*
BAFST01L FRMT
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 BAFST02L
FMEND
*
BAFST02L FRMT
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
FLINK BAFST12L
FMEND
*
BAFST12L FRMT
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
FLINK VOFMT02L
FMEND
*
VOFMT02L FRMT
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 BAXF06L
FMEND
*
BAXF06L FRMT
FLINK BAFST03A
FEOR
FILLR '0',2
FEOR
FILLR '0',2
FEOR
FLINK KVIT03
FMEND
*
VOSUM07 FRMT SUMBILAG
FLINK VOSUM07L
FMEND
*
VOSUM07L FRMT
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
FLINK VOX09L
FMEND
*
VOX09L 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
FLINK VOX10L
FMEND
*
VOX10L 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
FLINK VOX14L
FMEND
*
VOX14L 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
FLINK VOX16L
FMEND
*
VOX16L FRMT
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
FLINK VOX17L
FMEND
*
VOX17L 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
FLINK VOX18L
FMEND
*
VOX18L 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 KAFST03L
FMEND
*
KAFST03L FRMT
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 KAFST51L
FMEND
*
KAFST53 FRMT
FLINK KAFST53L
FMEND
*
KAFST51L FRMT
FLINK KSUB01
FTEXT 'P]'
FLINK KSUB02
FMEND
*
*
KAFST53L 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
FLINK XKTTRPL
FMEND
*
XKTTRPL 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
FLINK TAFMT02L
FMEND
*
TAFMT02L 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
*
*
END