|
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: 20270 (0x4f2e)
Notes: pts_type(SC)
Names: »REMBDT.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/REMBDT.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/REMBDT.SC«
IDENT REMBDT DDUM KMD08 PDIV ENTRY BCHKPR ENTRY BGIRPR ENTRY BSAMPR ENTRY WSTRCH ENTRY STREDT EXT RAWRIT EXT TXTRD EXT LEVRD EXT FMREMP EXT GENWRF EXT GENWRS EXT KFWRIT EXT CLEAR8 EXT CYRD EXT SPLIN8 EXT GRASPV EXT WRITJT EXT FSOLVE EXT FMOD EXT NEWLIN EXT WAITF INCLUDE EQUATE EJECT WSTRCH PROC P ********** * * P=0: CREATE A RECORD ON CYSET CONTAINING ONE SPEC. LINE FOR * STRAKSCHECK * P=1: WRITE A STRAKSCHECK * CLEAR CYSET * PREPARE FOR NEXT STRAKSCHECK * ********** CBE P,CBIN1,WSTR050 EXPL. WRITE? MOVE GSWBIN8,TTASKNR FIND PHYS. RECORD SUB GSWBIN8,CBIN1 MUL GSWBIN8,CCYSIZE ADD GSWBIN8,GTCHKCY ADD GSWBIN8,=W'30' CBNE GTCHKCY,CBIN1,WSTR005 MOVE GTCYSUM,=D'0' WSTR005 PERF WAITF,CCYPFLG MOVE CCYBUF,=X'00' PERF STREDT EDIT CCYBUF,CHKFRM2 PERF RAWRIT,DK03,=D'3',CCYBUF,GSWBIN8 BNOK WSTR094 ADD GTCHKCY,CBIN1 CLEAR CCYPFLG ADD GTCYSUM,GTDUPF(CBIN4) CBNG GTCHKCY,CBIN6,WSTR090 ROOM FOR NEXT LINE? TBF C821FLG,WSTR050 CBNG GTCHKCY,CBIN12,WSTR090 HJORRING ONLY * WSTR050 WRITE A CHECK CBE GTCHKCY,CBIN1,WSTR090 EMPTY? CBL GTCYSUM,=D'1',WSTR080 ADD CCHKLBNR,=D'1' PERF WRITJT,=W'16' PERF SPLIN8,CBIN13,CBIN2 PERF GRASPV MOVE GSWBIN8,=W'40' TBF C821FLG,WSTR052 ADD GSWBIN8,CBIN11 WSTR052 DSC1 KVOUCH,POS,GSWBIN8 MOVE GTKFVAL,CCHKLBNR REWRITE CHECKLOBENR PERF KFWRIT,CBIN4,CBIN1,CBIN0,GTKFVAL EDWRT KVOUCH,CHKFRM1 MOVE GTCYSUM,=D'0' MOVE GSWBIN8,GTCHKCY LOOP CONTROL SUB GSWBIN8,CBIN1 MOVE GSWBCD6,GTCYIN SAVE GTCYIN MOVE GTCYIN,TTASKNR MUL GTCYIN,CCYSIZE SUB GTCYIN,CBIN5 MOVE GSWBIN7,CBIN15 TBF C821FLG,WSTR060 ADD GSWBIN7,CBIN11 WSTR060 SUB GSWBIN7,CBIN2 DSC1 KVOUCH,POS,GSWBIN7 PERF CYRD SUB GSWBIN8,CBIN1 BNZ WSTR060 FINISHED? DSC0 KVOUCH,RLEAS MOVE GTCYIN,GSWBCD6 RESTORE GTCYIN WSTR080 MOVE GTCYSUM,=D'0' MOVE GTCHKCY,CBIN1 * WSTR090 PERF CLEAR8 CMP CBIN0,CBIN0 B WSTR099 WSTR094 DISK ERROR CLEAR CCYPFLG CMP CBIN0,CBIN1 B WSTR099 WSTR099 RET PEND EJECT BCHKPR PROC P * PRINT BUNDTCHECKS * P = 0 BCHK10 - ADJUST PRINTER * P = 1 BCHK20 - LEV + TRANS 1 * P = 2 BCHK30 - TRANS 2 * P = 3 BCHK40 - TRANS 3 + PRINT * P = 4 BCHK50 - PRINT MOVE GSWBIN8,P ADD GSWBIN8,CBIN1 TBF C821FLG,BCHK00 PERF B821PR B BCHK90 BCHK00 IB GSWBIN8,BCHK10,BCHK20,BCHK30,BCHK40,BCHK50 B BCHK90 * BCHK10 PRINTER ADJUST PERF FMREMP,CBIN1 GET FORMAT FBDTCHK MOVE SPINPUT,='X' MOVE GSWBIN5,CBIN16 BCHK15 PERF FMOD,GSWBIN5,SPINPUT WITH X SUB GSWBIN5,CBIN1 CBG GSWBIN5,CBIN0,BCHK15 B BCHK65 PRINT IT * BCHK20 INITIATE LEV + 1. TRANS PERF FMREMP,CBIN1 GET FORMAT FBDTCHK PERF FMOD,CBIN8,GTLEVNVN PERF FMOD,CBIN11,GTLEVADR PERF FMOD,CBIN13,GTLEVBY EDIT GSWSTR9,FPNR PERF FMOD,CBIN14,GSWSTR9 PERF FMOD,CBIN15,GTLEVPDI * MOVE GTBSUM1,GTDUPF(CBIN4) PERF TXTEDIT,CBIN1,CBIN1 B BCHK90 * BCHK30 ADD GTBSUM1,GTDUPF(CBIN4) PERF TXTEDIT,CBIN1,CBIN2 B BCHK90 * BCHK40 ADD GTBSUM1,GTDUPF(CBIN4) PERF TXTEDIT,CBIN1,CBIN3 B BCHK60 * BCHK50 CBE GSWBCD5,=D'1',BCHK90 NOTHING TO PRINT ? BCHK60 EDIT SPINPUT,FREMTOT1 PERF FMOD,CBIN4,SPINPUT PERF FMOD,CBIN16,SPINPUT PERF FSOLVE BCHK65 MOVE GTBSUM1,=D'0' PERF GENWRS,GTHCDEV,EDITBUF PERF NEWLIN,CBIN7 TBF GTCHKPR,BCHK70 PERF NEWLIN,CBIN1 EXTRA LINEFEED ? CLEAR GTCHKPR B BCHK90 BCHK70 SET GTCHKPR BCHK90 CMP CBIN0,CBIN0 RET PEND EJECT B821PR PROC * THIS ROUTINE IS EXECUTED EXCLUSIVELY * FOR HJORRING KOMMUNE * P = 0 B82110 - ADJUST PRINTER * P = 1 B82120 - LEV + TRANS 1 * P = 2 B82130 - TRANS 2 - N-1 * P = 3 B82140 - TRANS N + ANNULE CHECK * P = 4 B82150 - PRINT IB GSWBIN8,B82110,B82120,B82140,B82140,B82150 B B82140 * B82110 PRINTER ADJUST PERF NEWLIN,CBIN12 PERF NEWLIN,CBIN12 B821112 PERF FMREMP,CBIN4 GET FORMAT F821CHK MOVE SPINPUT,='X' MOVE GSWBIN5,CBIN6 B82115 PERF FMOD,GSWBIN5,SPINPUT INIT WITH X SUB GSWBIN5,CBIN1 CBG GSWBIN5,CBIN0,B82115 B B82165 PRINT IT * B82120 INIT LEV + 1 TRANS MOVE GTBSUM1,=D'0' B82125 PERF FMREMP,CBIN4 PERF FMOD,CBIN2,GTLEVNVN PERF FMOD,CBIN3,GTLEVADR PERF FMOD,CBIN4,GTLEVBY EDIT GSWSTR9,FPNR PERF FMOD,CBIN5,GSWSTR9 PERF FMOD,CBIN6,GTLEVPDI * B82140 CBNE GSWBCD5,=D'25',B82142 PAGE FILLED? PERF FMREMP,CBIN4 GET FORMAT F821CHK MOVE SPINPUT,='X' MOVE GSWBIN5,CBIN6 B82144 PERF FMOD,GSWBIN5,SPINPUT INIT WITH X SUB GSWBIN5,CBIN1 CBG GSWBIN5,CBIN0,B82144 PERF GENWRS,GTHCDEV,EDITBUF MOVE GSWBCD5,=D'1' B B82125 B82142 ADD GTBSUM1,GTDUPF(CBIN4) MOVE GSWBIN7,GTDUPF(CBIN15) TEXTNR PERF TXTRD,GSWBIN7 PERF STREDT PERF GENWRF,GTHCDEV,CHKFRM2 PERF NEWLIN,CBIN1 B B82190 * B82150 TBT CWORK1,B82140 CBE GSWBCD5,=D'1',B82190 NOTHING TO PRINT ? CBE GSWBCD5,=D'25',B82160 COMPUTE NBR OF SUB GSWBCD5,=D'25' LINEFEEDS TO PERFORM MUL GSWBCD5,=D'-1' MOVE GSWBIN5,GSWBCD5 B82160 EDIT SPINPUT,FREMTOT1 PERF NEWLIN,GSWBIN5 PERF FMOD,CBIN1,SPINPUT B82165 PERF GENWRS,GTHCDEV,EDITBUF MOVE GTBSUM1,=D'0' B82190 RET PEND EJECT BGIRPR PROC P * BGIRPR10 - ADJUST PRINTER * BGIRPR20 - LEV 1 + TRANS 1 * BGIR30 - TRANS 2 * BGIR40 TRANS 3 * BGIR50 - LEV 2 + TRANS 1 * BGIR60 - TRANS 2 * BGIR70 - TRANS 3 + WRITE * BGIR80 - WRITE MOVE GSWBIN8,P ADD GSWBIN8,CBIN1 IB GSWBIN8,BGIR10,BGIR20,BGIR30,BGIR40, C BGIR50,BGIR60,BGIR70,BGIR80 B BGIR90 * BGIR10 PERF FMREMP,CBIN2 GET FORMAT FBDTGIR MOVE SPINPUT,='X' MOVE GSWBIN5,CBIN1 BGIR15 PERF FMOD,GSWBIN5,SPINPUT ADD GSWBIN5,CBIN1 CBG GSWBIN5,=W'32',BGIR86 B BGIR15 * BGIR20 PERF FMREMP,CBIN2 GET FORMAT FBDTGIR MOVE GTBSUM2,=D'0' GIRO TOTAL RIGHT EDIT GSWSTR20,FSAMLEV PERF FMOD,CBIN2,GSWSTR20 MOVE GIRONR PERF FMOD,CBIN9,GTLEVNVN PERF FMOD,CBIN12,GTLEVADR PERF FMOD,CBIN16,GTLEVBY PERF FMOD,CBIN21,GTLEVPDI EDIT GSWSTR9,FPNR PERF FMOD,CBIN20,GSWSTR9 * MOVE GTBSUM1,GTDUPF(CBIN4) PERF TXTEDIT,CBIN2,CBIN1 B BGIR90 * BGIR30 ADD GTBSUM1,GTDUPF(CBIN4) PERF TXTEDIT,CBIN2,CBIN2 B BGIR90 * BGIR40 ADD GTBSUM1,GTDUPF(CBIN4) PERF TXTEDIT,CBIN2,CBIN3 B BGIR90 * BGIR50 EDIT GSWSTR20,FSAMLEV PERF FMOD,CBIN4,GSWSTR20 MOVE GIRONR PERF FMOD,CBIN10,GTLEVNVN PERF FMOD,CBIN14,GTLEVADR PERF FMOD,CBIN18,GTLEVBY MOVE GSWBIN7,=W'24' PERF FMOD,GSWBIN7,GTLEVPDI EDIT GSWSTR9,FPNR MOVE GSWBIN7,=W'23' PERF FMOD,GSWBIN7,GSWSTR9 * MOVE GTBSUM2,GTDUPF(CBIN4) PERF TXTEDIT,CBIN2,CBIN4 B BGIR90 * BGIR60 ADD GTBSUM2,GTDUPF(CBIN4) PERF TXTEDIT,CBIN2,CBIN5 B BGIR90 * BGIR70 ADD GTBSUM2,GTDUPF(CBIN4) PERF TXTEDIT,CBIN2,CBIN6 B BGIR85 * BGIR80 BGIR85 EDIT SPINPUT,FREMTOT1 MOVE GSWBIN7,=W'31' PERF FMOD,GSWBIN7,SPINPUT MOVE GSWBIN7,=W'32' EDIT SPINPUT,FREMTOT2 PERF FMOD,GSWBIN7,SPINPUT PERF FSOLVE BGIR86 MOVE GTBSUM1,=D'0' MOVE GTBSUM2,=D'0' PERF GENWRS,GTHCDEV,EDITBUF PERF NEWLIN,CBIN13 * BGIR90 CMP CBIN0,CBIN0 RET PEND EJECT BSAMPR PROC P * P = 0 - BSAM10 - HEADER * P = 1 - BSAM20 - LEV + TRANS 1 * P = 2 - BSAM30 - TRANS 2 * P = 3 - BSAM40 - TRANS 3 + PRINT + HEADER (EVTL) * P = 4 - BSAM70 - PRINT * P = 5 - BSAM50 - PRINT TOTAL MOVE GSWBIN8,P ADD GSWBIN8,CBIN1 IB GSWBIN8,BSAM10,BSAM20,BSAM30,BSAM40, C BSAM70,BSAM50 B BSAM90 BSAM10 MOVE GSWBIN10,CBIN1 TBT CADVIS,BSAM15 TBF CBDTGIR,BSAM15 MOVE GTLEVNR,GTPRTTIL PERF LEVRD READ HEADING BSAM15 MOVE GSWBCD4,GSWBIN10 PERF GENWRF,GTHCDEV,FBDTOVSK MOVE GSWBIN3,=W'40' B BSAM90 BSAM20 PERF FMREMP,CBIN3 GET FORMAT FBDTSAM PERF FMOD,CBIN3,GTLEVNVN EDIT GSWSTR20,FSAMLEV PERF FMOD,CBIN2,GSWSTR20 MOVE GTBSUM1,GTDUPF(CBIN4) PERF TXTEDIT,CBIN3,CBIN1 B BSAM90 BSAM30 ADD GTBSUM1,GTDUPF(CBIN4) PERF TXTEDIT,CBIN3,CBIN2 B BSAM90 BSAM40 ADD GTBSUM1,GTDUPF(CBIN4) PERF TXTEDIT,CBIN3,CBIN3 B BSAM70 BSAM50 CLEAR CSWFLAG PERF GENWRF,GTHCDEV,FBDTSLUT SET CSWFLAG PERF GENWRF,GTHCDEV,FBDTSLUT SUB GSWBIN3,CBIN7 PERF NEWLIN,GSWBIN3 SKIP TO NEW PAGE B BSAM90 BSAM70 CBE GSWBCD5,=D'1',BSAM90 EDIT SPINPUT,FREMTOTS PERF FMOD,CBIN1,SPINPUT PERF FSOLVE CBG GSWBIN3,CBIN3,BSAM85 CLEAR CSWFLAG PERF GENWRF,GTHCDEV,FBDTSLUT PERF NEWLIN,CBIN6 ADD GSWBIN10,CBIN1 TBT CADVIS,BSAM75 MOVE GTLEVNR,GTPRTTIL PERF LEVRD READ HEADING BSAM75 MOVE GSWBCD4,GSWBIN10 PERF GENWRF,GTHCDEV,FBDTOVSK MOVE GTBSUM2,=D'0' MOVE GSWBIN3,=W'40' BSAM85 PERF GENWRS,GTHCDEV,EDITBUF SUB GSWBIN3,CBIN2 ADD GTBSUM2,GTBSUM1 ADD GTBSUM3,GTBSUM1 MOVE GTBSUM1,=D'0' BSAM90 CMP CBIN0,CBIN0 CLEAR CSWFLAG RET PEND EJECT TXTEDIT PROC ART,SEQ * ART=1 - BUNDTCHECK * ART=2 - BUNDTGIRO * ART=3 - SAMLERLISTE * MOVE GSWBIN7,GTDUPF(CBIN15) TEXTNR PERF TXTRD,GSWBIN7 * PERF STREDT * SPINPUT CONTAINS NOW NUMMER-1 NUMMER2 DATO1 DATO2 * (IN A COMBINATION GOVERNED BY TEXTCODE) * GSWSTR20 CONTAINS AMOUNT MOVE GSWBIN7,ART IB GSWBIN7,TXTE20,TXTE30,TXTE40 * TXTE20 EDIT BUNDTCHECK MOVE GSWBIN7,SEQ IB GSWBIN7,TXTE21,TXTE22,TXTE23 TXTE21 PERF FMOD,CBIN1,GTLEVTXT TEXT PERF FMOD,CBIN2,SPINPUT INFO PERF FMOD,CBIN3,GSWSTR20 AMOUNT B TXTE90 TXTE22 PERF FMOD,CBIN5,GTLEVTXT PERF FMOD,CBIN6,SPINPUT PERF FMOD,CBIN7,GSWSTR20 B TXTE90 TXTE23 PERF FMOD,CBIN9,GTLEVTXT PERF FMOD,CBIN10,SPINPUT PERF FMOD,CBIN12,GSWSTR20 B TXTE90 * TXTE30 EDIT GIRO MOVE GSWBIN7,SEQ IB GSWBIN7,TXTE31,TXTE32,TXTE33,TXTE34,TXTE35,TXTE36 TXTE31 PERF FMOD,CBIN1,GTLEVTXT PERF FMOD,CBIN5,SPINPUT PERF FMOD,CBIN7,GSWSTR20 B TXTE90 TXTE32 PERF FMOD,CBIN11,GTLEVTXT PERF FMOD,CBIN15,SPINPUT PERF FMOD,CBIN19,GSWSTR20 B TXTE90 TXTE33 MOVE GSWBIN7,=W'25' PERF FMOD,GSWBIN7,GTLEVTXT MOVE GSWBIN7,=W'27' PERF FMOD,GSWBIN7,SPINPUT MOVE GSWBIN7,=W'29' PERF FMOD,GSWBIN7,GSWSTR20 B TXTE90 TXTE34 PERF FMOD,CBIN3,GTLEVTXT PERF FMOD,CBIN6,SPINPUT PERF FMOD,CBIN8,GSWSTR20 B TXTE90 TXTE35 PERF FMOD,CBIN13,GTLEVTXT PERF FMOD,CBIN17,SPINPUT PERF FMOD,CBIN22,GSWSTR20 B TXTE90 TXTE36 MOVE GSWBIN7,=W'26' PERF FMOD,GSWBIN7,GTLEVTXT MOVE GSWBIN7,=W'28' PERF FMOD,GSWBIN7,SPINPUT MOVE GSWBIN7,=W'30' PERF FMOD,GSWBIN7,GSWSTR20 B TXTE90 * TXTE40 EDIT BUNDTLISTE MOVE GSWBIN7,SEQ IB GSWBIN7,TXTE41,TXTE42,TXTE43 TXTE41 PERF FMOD,CBIN4,SPINPUT B TXTE90 TXTE42 PERF FMOD,CBIN5,SPINPUT B TXTE90 TXTE43 PERF FMOD,CBIN6,SPINPUT B TXTE90 TXTE90 CMP CBIN0,CBIN0 RET PEND EJECT STREDT PROC MOVE GSWSTR20,=X'00' MOVE SPINPUT,=X'00' MOVE GSWBIN7,GTTXTTKO MOVE TEXTCODE IB GSWBIN7,STRE03,STRE04,STRE05,STRE06,STRE07,STRE08 STRE03 EDIT SPINPUT,FREMINF1 B STRE80 STRE04 MOVE GSWBCD6,GTDUPF(CBIN13) NR-1 EDIT SPINPUT,FREMINF2 B STRE80 STRE05 MOVE GSWBCD6,GTDUPF(CBIN13) NR-1 MOVE GSWBCD7,GTDUPF(CBIN14) NR-2 EDIT SPINPUT,FREMINF3 B STRE80 STRE06 MOVE GSWBCD6,GTDUPF(CBIN18) DATO-1 EDIT SPINPUT,FREMINF4 B STRE80 STRE07 MOVE GSWBCD6,GTDUPF(CBIN18) MOVE GSWBCD7,GTDUPF(CBIN19) DATO-2 EDIT SPINPUT,FREMINF5 B STRE80 STRE08 MOVE GSWBCD6,GTDUPF(CBIN13) NR-1 MOVE GSWBCD7,GTDUPF(CBIN18) DATO-1 EDIT SPINPUT,FREMINF6 STRE80 EDIT GSWSTR20,FREMBEL CMP CBIN0,CBIN0 RET PEND EJECT FREMBEL FRMT FMEL 'BZZVZZZVZZ9,99-',GTDUPF(CBIN4) FMEND FREMINF1 FRMT FILLR ' ',21 FMEND FREMINF2 FRMT FMEL 'ZZZZZZZZZ9',GSWBCD6 FILLR ' ',11 FMEND FREMINF3 FRMT FMEL 'ZZZZZZZZZ9',GSWBCD6 FILLR ' ',1 FMEL 'ZZZZZZZZZ9',GSWBCD7 FMEND FREMINF4 FRMT FMEL '99V99V99',GSWBCD6 FILLR ' ',13 FMEND FREMINF5 FRMT FMEL '99V99V99',GSWBCD6 FILLR ' ',3 FMEL '99V99V99',GSWBCD7 FILLR ' ',2 FMEND FREMINF6 FRMT FMEL 'ZZZZZZZZZ9',GSWBCD6 FILLR ' ',1 FMEL '99V99V99',GSWBCD7 FILLR ' ',2 FMEND FREMINF7 FRMT FMEL '****9',TTLBNR FMEND FREMTOTS FRMT FMEL 'ZZZZZZZVZZ9,99-',GTBSUM1 FMEND FREMTOT1 FRMT FBT CBDTGIR,FRE110 FMEL '*******V**9,99-',GTBSUM1 FB FRE120 FRE110 FMEL 'ZZZZZZVZZ9BB99-',GTBSUM1 FRE120 FMEND FREMTOT2 FRMT FBT CBDTGIR,FRE210 FMEL '*******V**9,99-',GTBSUM2 FB FRE220 FRE210 FMEL 'ZZZZZZVZZ9BB99-',GTBSUM2 FRE220 FMEND FSAMLEV FRMT FBT CBDTGIR,FSAM10 FMEL '9999999999',GTLEVNR FB FSAM20 FSAM10 FMEL '9B99B99B99',GTLEVGI FSAM20 FMEND FPNR FRMT FMEL 'ZZZZ',GTLEVPNR FMEND EJECT ******************** STRAKSCHECK ******************** CHKFRM1 FRMT FILLR '+',2 FMEL '99V99V99',GTDATO FILLR ' ',40 FMEL '*.***.***.**9,99-',GTCYSUM BELOB FILLR ' ',2 FEOR FILLR '3',2 FMEL '*.***.***.**9,99-',GTCYSUM BELOB FILLR ' ',38 FEOR FILLR '4',2 FCOPY GTLEVNVN FILLR ' ',32 FEOR FILLR '2',2 FCOPY GTLEVADR FILLR ' ',30 FEOR FILLR '2',2 FCOPY GTLEVBY FILLR ' ',42 FEOR FILLR '2',2 FMEL 'ZZZZBB',GTLEVPNR FCOPY GTLEVPDI FILLR ' ',43 FEOR FILLR '4',2 FEOR FILLR '4',2 FEOR FILLR '4',2 FBT TTCY1FLG,CHKF10 FMEL '999E-999E-99E-99',GTDUPF(CBIN1) FB CHKF20 CHKF10 FMEL '999E-999E-99E-99',TTARKSAV CHKF20 FILLR ' ',7 FMEL '****9BB',CCHKLBNR CHECKLOBENR FILLR ' ',34 FMEND * * CHKFRM2 FRMT FSL FBT CWORK1,CHKFRM2A FLINK FREMINF7 CHKFRM2A FILLR ' ',1 FCOPY GTLEVTXT FILLR ' ',1 FCOPY SPINPUT FILLR ' ',1 FCOPY GSWSTR20 FMEND ********** BUNDTREMITTERINGSLISTEOVERSKRIFT ********** FBDTOVSK FRMT FILLR '+',2 FBT CADVIS,FBDT010 FBT CKRESP,FBDT020 FBF CBDTGIR,FBDT005 FCOPY ='SAMLERGIRO-FORTEGNELSE' FILLR ' ',15 FCOPY GTLEVNVN FILLR ' ',5 FMEL '9B99B99B99',GTLEVGI FILLR ' ',10 FB FBDT040 FBDT005 CHECK IF ADVIS FCOPY ='BUNDTREMITTERING' FCOPY ='SLISTE' FB FBDT030 FBDT010 FCOPY ='ADVI' FCOPY ='SLISTE' FILLR ' ',12 FB FBDT030 FBDT020 FCOPY ='SPECIFIKATION ' FILLR ' ',8 FBDT030 FILLR ' ',19 FBDT040 FCOPY ='DEN ' FMEL '99V99V99',GTPRTDAT FNL FNL FILLR ' ',9 FTEXT X'42454C5C42' FILLR ' ',6 FTEXT 'LEV-NR' FILLR ' ',5 FTEXT 'NAVN' FILLR ' ',32 FILLR ' ',32 FCOPY ='SIDE' FMEL 'ZZZZ',GSWBCD4 FNL FMEND ********** BUNDTREMITTERINGSSLUTLINIE *********** FBDTSLUT FRMT FNL FBT CSWFLAG,FBDTSL10 GRAND TOTAL ? FNL FMEL 'ZZZZZZZVZZ9,99-',GTBSUM2 FILLR ' ',14 FCOPY ='SIDE' FCOPY ='TOTAL' FB FBDTSL99 FBDTSL10 FMEL 'ZZZZZZZVZZ9,99-',GTBSUM3 PAGETOTAL FILLR ' ',14 FCOPY ='TOTAL' FTEXT ' IALT' FMEL 'ZZ9',GSWBCD4 FTEXT ' SIDE(R)' FBDTSL99 FNL FNL FMEND END