|
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: 20684 (0x50cc)
Notes: pts_type(SC)
Names: »RGFRMT.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/RGFRMT.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/RGFRMT.SC«
IDENT RGFRMT 831101 EV
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
*
*
* FMTSTR FTABLE STYRHB,STYRDB,STYRRM
*
SPFTB FTABLE FRMT01,FRMT02,FRMT03,FRMT04,FRMT05, C
FRMT06,FRMT07,FRMT08,FRMT09,FRMT10, C
FRMT12
*
*
XSPFTB FTABLE FMT308,FMT309,FMTERR,FMTERR, C
FMTERR,FMTERR,FMT208,FMT208, C
FMTERR,FMTERR,XSPCY1,XSPKT1, C
XSPLIN,XSPCY2
EJECT
*
*
FRMT01 FRMT TRANSTYPE 1
FSL
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
FLINK FBELOB
FNL
FLINK SUBF08
FNL
FCOPY ='BKO'
FTAB 5
FLINK FVALOR
FTAB 18
FCOPY ='BFO'
FNL
FLINK SUBF07
FLINK SUBF11
FLINK SUBF12
FLINK FCYEND
FMEND
*
*
TRANSTYPE 2
FRMT02 FRMT
FSL
FMEL '99',GTREGNR
FCOPY =' NORMALPOST'
FLINK FCYST
FNL
FCOPY ='REGKONTONR'
FNL
FLINK SUBF05
FNL
FLINK FBELOB
FNL
FLINK SUBF08
FNL
FNL
FLINK FCYEND
FMEND
*
*
TRANSTYPE 3
FRMT03 FRMT
FSL
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
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
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
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
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
FLINK FBELOB
FNL
FLINK SUBF08
FNL
FCOPY ='BKO'
FTAB 5
FLINK FVALOR
FTAB 18
FCOPY ='BFO'
FTAB 22
FCOPY ='MTB'
FNL
FLINK SUBF07
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
FMEL '99',GTREGNR
FCOPY =' REMITTERING'
FLINK FCYST
FNL
FCOPY ='REGKONTONR'
FTAB 13
FCOPY ='LEVERAND '
FNL
FLINK SUBF05
FLINK SUBF06
FNL
FLINK FBELOB
FTAB 17
FCOPY ='FAKTNR FAKTDATO'
FNL
FLINK SUBF08
FLINK SUBF24
FNL
FCOPY ='LEVKONTO'
FTAB 13
FCOPY ='TXT'
FTAB 22
FLINK FVALOR
FTAB 32
FCOPY ='BFO'
FNL
FLINK SUBF25
FLINK SUBF26
FLINK SUBF11X
FLINK SUBF12X
FLINK FCYEND
FMEND
*
*
TRANSTYPE 09 - 1
FRMT09 FRMT
FSL
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
FLINK FBELOB
FTAB 17
FCOPY ='FAKTNR FAKTDATO'
FNL
FLINK SUBF08
FLINK SUBF24
FNL
FCOPY ='LEVKONTO'
FTAB 13
FCOPY ='TXT'
FTAB 22
FLINK FVALOR
FTAB 32
FCOPY ='BFO'
FNL
FLINK SUBF25
FLINK SUBF26
FLINK SUBF11X
FLINK SUBF12X
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
*
*
*
FCYST FRMT
FTAB 23
FCOPY TTINF1
FMEND
*
FCYEND FRMT
FNL
FNL
FNL
FNL
FNL
FNL
FNL
FNL
FNL
FNL
FNL
FNL
FNL
FNL
FNL
FNL
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=121,VERIF
FMEL 'B',TSWBCD2
FMEND
*
*
FVALOR FRMT
FTEXT X'56414C5C52' VALOER
FMEND
*
FBELOB FRMT
FTEXT X'42454C5C42' BELOEB
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,VERIF
FMEL 'XXXXXXE-XXXX',GTREGF(CBIN2)
FMEND
*
*
BETALINGSKODE
SUBF07 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, C
VERIF
FMEL 'XXVXXVXX',GTREGF(CBIN7)
FMEND
*
*
BETALINGSFORM
SUBF12 FRMT
FKI 18,MAXL=1,APPL=12,DUPL=GTDUPF(CBIN8)
FMEL 'XX',GTREGF(CBIN8)
FMEND
SUBF12X FRMT
FKI 32,MAXL=2,APPL=12,DUPL=GTDUPF(CBIN8)
FMEL 'XX',GTREGF(CBIN8)
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,VERIF
FMEL 'XXXXXXE-XXXX',GTREGF(CBIN10)
FMEND
*
*
MODTAGERS BETALINGSART
SUBF22 FRMT
FKI 22,MINL=2,MAXL=2,APPL=22,DUPL=GTDUPF(CBIN11),VERIF
FMEL 'XX',GTREGF(CBIN11)
FMEND
*
*
FAKTURA NUMMER OG DATO
SUBF24 FRMT
FKI 17,MAXL=10,APPL=24,DUPL=GTDUPF(CBIN13),VERIF
FMEL 'TTTTTTTTTX',GTREGF(CBIN13)
FKI 28,MINL=6,MAXL=6,APPL=23,DUPL=GTDUPF(CBIN12), C
SCHK=2,VERIF
FMEL 'XXVXXVXX',GTREGF(CBIN12)
FMEND
*
*
LEVERAND. KONTONUMMER
SUBF25 FRMT
FKI 1,MAXL=10,APPL=25,DUPL=GTDUPF(CBIN14),VERIF
FMEL 'TTTTTTTTTX',GTREGF(CBIN14)
FMEND
*
*
TEXTNUMMER
SUBF26 FRMT
FKI 13,MAXL=4,APPL=26,DUPL=GTDUPF(CBIN15),VERIF
FMEL 'TTTX',GTREGF(CBIN15)
FMEND
*
*
OMR]DENUMMER
SUBF27 FRMT
FKI 6,MINL=2,MAXL=2,APPL=27,DUPL=GTDUPF(CBIN16),VERIF
FMEL 'XX',GTREGF(CBIN16)
FMEND
*
*
PERIODE FRA/TIL
SUBF37 FRMT
FKI 1,MINL=6,MAXL=6,APPL=37,DUPL=GTDUPF(CBIN18), C
SCHK=2,VERIF
FMEL 'XXVXXVXX',GTREGF(CBIN18)
FKI 10,MINL=6,MAXL=6,APPL=38,DUPL=GTDUPF(CBIN19), C
SCHK=2,VERIF
FMEL 'XXVXXVXX',GTREGF(CBIN19)
FMEND
*
*
ALTERNATIV ADRESSEKODE
SUBF46 FRMT
FKI 11,MAXL=1,APPL=46,DUPL=GTDUPF(CBIN17),VERIF
FMEL 'X',GTREGF(CBIN17)
FMEND
*
*
DEBITORL@BENUMMER
SUBF48 FRMT
FKI 10,MAXL=3,APPL=48,DUPL=GTDUPF(CBIN15)
FMEL 'TTX',GTREGF(CBIN15)
FMEND
EJECT
FMT308 FRMT
FSL
FNL
FNL
FNL
FCOPY ='BKO'
FTAB 6
FCOPY ='OMR'
FTAB 11
FCOPY ='A-ADR'
FNL
FLINK SUBF07
FLINK SUBF27
FLINK SUBF46
FNL
FCOPY ='PER FRA PER TIL'
FNL
FLINK SUBF37
FLINK FCYEND
FMEND
*
FMT309 FRMT
FSL
FNL
FNL
FNL
FCOPY ='BKO'
FTAB 6
FCOPY ='OMR'
FTAB 11
FCOPY ='A-ADR'
FNL
FLINK SUBF07
FLINK SUBF27
FLINK SUBF46
FNL
FCOPY ='PER FRA PER TIL'
FTAB 22
FCOPY ='MTB'
FNL
FLINK SUBF37
FLINK SUBF22
FLINK FCYEND
FMEND
*
FMT208 FRMT
FSL
FCOPY ='UDB.OPL.1-5'
FNL
FILLR '1',1
FKI 3,MAXL=22,APPL=90,ALPHA,DUPL=GTFELT90(CBIN6),VERIF
FCOPY GTFELT90(CBIN1)
FNL
FILLR '2',1
FKI 3,MAXL=22,APPL=91,ALPHA,DUPL=GTFELT90(CBIN7),VERIF
FCOPY GTFELT90(CBIN2)
FNL
FILLR '3',1
FKI 3,MAXL=22,APPL=92,ALPHA,DUPL=GTFELT90(CBIN8),VERIF
FCOPY GTFELT90(CBIN3)
FNL
FILLR '4',1
FKI 3,MAXL=22,APPL=93,ALPHA,DUPL=GTFELT90(CBIN9),VERIF
FCOPY GTFELT90(CBIN4)
FNL
FILLR '5',1
FKI 3,MAXL=22,APPL=94,ALPHA,DUPL=GTFELT90(CBIN10),VERIF
FCOPY GTFELT90(CBIN5)
FLINK FMTEND
FMEND
FMTERR FRMT
FSL
FCOPY ='FEJL FORMAT'
FMEND
*
*
XSPCY1 FRMT
FSL
FNL
FNL
FNL
FBT TTCY2FLG,XSPL01
FCOPY ='ARKIV'
FCOPY ='KONTONR'
FNL
FKI 1,MINL=10,MAXL=10,REWRT,SCHK=1
FMEL 'XXXXXXXXE-XX',GTREGF(CBIN9)
FNL
FTEXT 'KONTROLSUM'
FB XSPL02
XSPL01
FNL
FNL
XSPL02
FTAB 18
FCOPY ='LINIE'
FTAB 25
FTEXT 'NY SIDE'
FNL
FBT TTCY2FLG,XSPL03
FKI 1,MAXL=12,REWRT,SCHK=4
FMEL 'TTTTTTTVTTX,XX-',GSWBCD6
XSPL03
FKI 18,MAXL=2,SCHK=5,ME
FMEL 'XX',TTLINNR
FKI 25,MAXL=2,SCHK=5
FMEL 'XX',TTCYKST
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,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
*
XSPCY2 FRMT
FSL
FNL
FNL
FNL
FNL
FNL
FTAB 32
FCOPY ='LINIE'
FNL
FKI 32,MAXL=2,SCHK=5,ME
FMEL 'XX',TTLINNR
FLINK FMTEND
FMEND
*
END
*