|
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: 27054 (0x69ae)
Notes: pts_type(SC)
Names: »DIV080.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/DIV080.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/DIV080.SC«
IDENT DIV080 831101 EV
DDUM KMD08
PDIV
ENTRY FRMTJT
ENTRY FRMXJT
ENTRY FRMXTA
ENTRY FRMTVO
ENTRY FRMTKV
ENTRY FRMXVO
ENTRY FRMXKV
ENTRY FRMTKT
ENTRY FRMXKT
EXT FMOVE
INCLUDE EQUATE
*
FRMTJT PROC
CALL FMOVE,GTSTRFMT,FTBJT(GTREGDEX)
RET
PEND
*
FRMXJT PROC XJTDEX
CALL FMOVE,GTSTRFMT,FTBXJT(XJTDEX)
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
*
FRMXKV PROC XKVDEX
CALL FMOVE,GTSTRFMT,FTBXKV(XKVDEX)
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
EJECT
*
* FORMATS FOR JOURNAL
*
FTBJT FTABLE JTFMT01,JTFMT02,JTFMT03,JTFMT04,JTFMT02, C
JTFMT01,JTFMT02,JTFMT08,JTFMT08,JTFMT02, C
JTFMT12
*
*
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 ' ',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 JTSUBST START INF
FILLR ' ',15
FLINK JTSUB06 CPR/CIR
FLINK JTSUB08 VALUE
FEOR
FILLR ' ',6
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
FLINK JTSUB08 VALUE
FEOR
FILLR ' ',2
FMEL 'BZZZZZZZZZZ',GTDUPF(CBIN2) DIVERSE TEXT
FILLR ' ',16
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 ' ',6
FMEL 'ZZ',GTDUPF(CBIN3) BKO
FMEL 'BZZ.ZZ.ZZ',GTDUPF(CBIN7) V.DATO
FMEL 'BBX',GTDUPF(CBIN6) RE$
FMEL 'BXX',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
*
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 'BZZZZZZZZZZ',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'
FCOPY =' 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 'B999.99.999.99BBB',TVERSUR
FMEL 'B999.99.999.99BBB',TTCASHAC
FMEL 'ZZZ.ZZZ.ZZ9.99-',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
FSL
FILLR '*',38
FCOPY ='MASKIN NR'
FMEL 'B999B',GTMSK
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 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 'XX',GTDUPF(CBIN8) BFO
FMEL 'B**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.99.999.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 'NJ-AMT'
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
FLINK BSUB01
FMEL 'BXXB',GTDUPF(CBIN3) BKO
FMEL 'ZZ.ZZ.ZZB',GTDUPF(CBIN7) BET/VALORDATO
FLINK JTSUB06 CPR-CIR NR
FMEND
*
BSUB11 FRMT
FMEL 'BX',GTDUPF(CBIN8) BFO
FMEL 'BXX',GTDUPF(CBIN11) P]L ]R
FILLR ' ',3
FMEL 'XXB',GTDUPF(CBIN12) RTE/GEB
FILLR ' ',3
FMEL 'XXXB',GTDUPF(CBIN15) DEB LBNR
FMEND
*
BSUB12 FRMT
FILLR ' ',2
FMEL 'BXX',GTDUPF(CBIN11) REST ]R
FMEL 'XXB',GTDUPF(CBIN10) FORFALDS]R
FMEL 'XXB',GTDUPF(CBIN12) FELT 19
FMEL 'XXB',GTDUPF(CBIN13) FELT 20
FMEL 'XXXB',GTDUPF(CBIN15) DEB LBNR
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, C
VOX17, C
VOX18, C
VOX19, C
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 BSUB04
FEOR
FILLR '0',2
FLINK BSUB05
FMEND
*
BAXF05 FRMT
FILLR '+',2
FLINK BSUB04
FEOR
FILLR '0',2
FLINK BSUB05
FMEND
*
BAXF06 FRMT
FLINK BAFST03
FEOR
FILLR '0',2
FEOR
FILLR '0',2
FEOR
FILLR '+',2
FLINK BSUB04
FLINK BSUB05
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 ='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
FILLR ' ',3
FMEL '999',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 'BXXX.XX.XXX.XXB',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-99E-999E-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 'BXXX.XX.XXX.XXB',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
*
VOX20 FRMT
FMEND
EJECT
*
* FORMATS FOR EXTRA 'KVITTERING'
* (MOSTLY AS NORMAL 'BILAG'
*
FTBKV FTABLE BAFST01,BAFST02,BAFST03,BAFST04,BAFST02, C
BAFST01,BAFST02,BAFST08,BAFST08,BAFST02, C
BAFST12
*
*
*
* FORMATS FOR EXTRA LINES, TRANS 8/9 ONLY
FTBXKV FTABLE BAFST08,VOX21,VOX22,VOX23,VOX24
*
VOX21 FRMT
FILLR '+',2
FMEL 'ZZ.ZZ.ZZ',GTDUPF(CBIN7) BET/VALORDATO
FILLR ' ',2
FMEL 'XXXXXXE-XXXX',GTDUPF(CBIN10) YD.MODT
FILLR ' ',2
FMEL 'ZZZ9',GTDUPF(CBIN15)
FILLR ' ',17
FMEND
*
VOX22 FRMT
FILLR '+',2
FCOPY GTFELT90(CBIN1)
FILLR ' ',1
FCOPY GTFELT90(CBIN2)
FILLR ' ',14
FMEND
*
VOX23 FRMT
FILLR '+',2
FCOPY GTFELT90(CBIN3)
FILLR ' ',1
FCOPY GTFELT90(CBIN4)
FILLR ' ',14
FMEND
*
VOX24 FRMT
FILLR '+',2
FCOPY GTFELT90(CBIN5)
FILLR ' ',37
FMEND
EJECT
*
* FORMATS FOR KONTOKORT
*
FTBKT FTABLE KAFST01,KAFST02,KAFST03,KAFST04,KAFST00, C
KAFST01,KAFST00,KAFST01,KAFST01,KAFST02, C
KAFST12
*
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
END