|
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: 7970 (0x1f22)
Notes: pts_type(SC)
Names: »REMPRT.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/REMPRT.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/REMPRT.SC«
IDENT REMPRT 04.01.XXX.1 DDUM KMD08 PDIV ENTRY AD4100 ENTRY AD4200 ENTRY AD4300 * EXT ADMRET EXT SPCLRA EXT CHDATO EXT BDTSCA EXT BDTPRT EXT BDTDEL EJECT AD4100 * CREATE PRINTLEV TBF CBUDTFLG,AD41END SET SPPROMPT ATTFMT ADM41FRM PERF SPCLRA IB SPBINW2,AD41END,AD41END,ADM4110 B AD41END ADM4110 ADD TRANSACTIONS TO PRINTLEV TBT CAD41FLG,AD41END SET CAD41FLG CBL GTPRTTIL,=D'1',ADM4120 SET CADVIS MOVE GTBSUM1,=D'0' MOVE GTBSUM2,=D'0' MOVE GTBSUM3,=D'0' TBT GTGTPFLG,ADM4125 TBT GTLPFLG,ADM4125 B AD41RET ADM4120 TBF GTTTPFLG,AD41RET ADM4125 CBNL GTLEVNR,=D'19',ADM4130 MOVE GTLEVNR,=D'19' 1. LEVNR ADM4130 MOVE GSWBCD6,GTPRTDAT PERF CHDATO MOVE GTPRTDAT,GSWBCD7 PERF BDTSCA BNOK AD41RET OBS UDSKRIV DIV. T[LLERE B AD41RET * AD41RET CLEAR CAD41FLG CLEAR CADVIS MOVE GTBSUM1,=D'0' MOVE GTBSUM2,=D'0' MOVE GTBSUM3,=D'0' AD41END B ADMRET EJECT AD4200 * PRINT PRINTLEV TBT CAD41FLG,AD42END SET CAD41FLG TBF CBUDTFLG,AD42RET TBT GTGTPFLG,ADM4210 TBT GTLPFLG,ADM4210 B AD42RET ADM4210 CLEAR CKRESP SET SPPROMPT ATTFMT ADM42FRM PERF SPCLRA IB SPBINW2,AD42RET,AD42RET,ADM4220 B AD42RET ADM4220 CLEAR CBDTGIR CBNE GTPRTTIL,=D'2',ADM4222 SET CBDTGIR ADM4222 CBNL GTPRTFRA,=D'1',ADM4225 MOVE GTPRTFRA,=D'10000000000' ADM4225 MOVE GTLEVNR,GTPRTTIL CBL GTLEVNR,=D'6',ADM4230 SUB GTLEVNR,=D'5' ADM4230 MOVE GTPRTTIL,GTLEVNR MOVE GTBSUM1,=D'0' MOVE GTBSUM2,=D'0' MOVE GTBSUM3,=D'0' PERF BDTPRT,CBIN1 CHECK/GIRO BNOK AD42RET MOVE GSWSTR20,='SAMLERLISTE ' ATTFMT ADM42FM2 PERF SPCLRA IB SPBINW2,AD42RET,AD42RET,ADM4240 B AD42RET ADM4240 MOVE GTLEVNR,GTPRTTIL MOVE GTBSUM1,=D'0' MOVE GTBSUM2,=D'0' MOVE GTBSUM3,=D'0' PERF BDTPRT,CBIN2 BNOK AD42RET MOVE GSWSTR20,='SPECIFIKATION ' ATTFMT ADM42FM2 PERF SPCLRA IB SPBINW2,AD42RET,AD42RET,ADM4250 B AD42RET ADM4250 MOVE GTLEVNR,GTPRTTIL SET CKRESP ADD GTLEVNR,=D'10' SPEICIFICATIONS MOVE GTBSUM1,=D'0' MOVE GTBSUM2,=D'0' MOVE GTBSUM3,=D'0' PERF BDTPRT,CBIN3 KREDIT SPECIFICATIONS BNOK AD42RET CLEAR CKRESP B AD42RET * AD42RET CLEAR CBDTGIR CLEAR CAD41FLG AD42END B ADMRET EJECT AD4300 * CLEAN PRINTLEV TBT CAD41FLG,AD43END SET CAD41FLG TBF CBUDTFLG,AD43RET SET SPPROMPT ATTFMT ADM43FRM PERF SPCLRA IB SPBINW2,AD43RET,AD43RET,ADM4310 B AD43RET ADM4310 MOVE GTLEVNR,GTPRTFRA CBL GTLEVNR,=D'6',ADM4320 SUB GTLEVNR,=D'5' ADM4320 PERF BDTDEL BNOK AD43RET1 MOVE GTLEVNR,GTPRTFRA CBL GTLEVNR,=D'6',ADM4330 SUB GTLEVNR,=D'5' ADM4330 ADD GTLEVNR,=D'10' PERF BDTDEL DELETE CREDIT SPEICIFICATIONS BNOK AD43RET1 B AD43RET1 * AD43RET1 AD43RET CLEAR CAD41FLG AD43END B ADMRET EJECT ********** * * FORMATS * ********** * ADM41FRM FRMT FSL FCOPY ='DAN ' FCOPY ='PRINT' FCOPY ='FIL' FILLR ' ',1 FCOPY ='BUNDTREMITTERING' FNL FCOPY ='VAL' FILLR X'5C',1 FILLR 'R',1 FCOPY ='DATO' FLINK ADM4X1 FNL FCOPY ='BFO' FKI 25,MINL=1,MAXL=1,NUM,ME FMEL 'X',GTPRTFRA FNL FCOPY ='ADVI' FCOPY ='SLISTE' FCOPY =' (0-1)' FKI 25,MINL=1,MAXL=1,NUM,ME FMEL 'X',GTPRTTIL FNL FCOPY ='FRA LEV. ' FCOPY ='NR' FKI 20,MINL=7,MAXL=10,NUM,SCHK=7 FMEL 'XXXXXXXXXX',GTLEVNR FMEND * ADM42FRM FRMT FSL FCOPY ='PRINT' FCOPY ='RUTINE ' FCOPY ='BUNDTREMITTERING' FNL FCOPY ='UDSKRIFT ' FCOPY ='DATO' FLINK ADM4X1 FNL FCOPY ='BFO' FKI 25,MINL=1,MAXL=1,NUM,ME FMEL 'X',GTPRTTIL FNL FCOPY ='FRA LEV. ' FCOPY ='NR' FKI 20,MINL=7,MAXL=10,NUM,SCHK=7 FMEL 'XXXXXXXXXX',GTPRTFRA FMEND * ADM42FM2 FRMT FSL FCOPY GSWSTR20 FNL FKI 1 FMEL 'B',TSWBCD2 FMEND * ADM43FRM FRMT FSL FCOPY ='SLET ' FCOPY ='RUTINE ' FCOPY ='BUNDTREMITTERING' FNL FCOPY ='BFO' FKI 25,MINL=1,MAXL=1,NUM,ME FMEL 'X',GTPRTFRA FMEND * ADM4X1 FRMT FKI 20,MINL=6,MAXL=6,NUM,SCHK=2,REWRT,ME FMEL 'XXVXXVXX',GTPRTDAT FMEND * * END