I:GLDT.BAS, G/L TRANSACTIONS DELETE, RDR, 7/6/78 REV. CP/M 2.1, 03/01/79J X :COPYRIGHT 1978 RETAIL SCIENCES, INC.)J HJPN$"DELETE A TRANSACTION"RJ PkJ,PU$"$$#,###,###.##"JNR%(V$( )): 0:  :INIT, OPENJ:Q$"DO YOU WANT TO PRINT A CONTROL REPORT":XJYESCR%::$w0K:"DIRECTIONS: TO DELETE A TRANSACTION YOU MUST FIRST SPECIFY"uK" THE ACCOUNT NUMBER, AFTER WHICH EACH TRANSACTION"K$" HAVING THAT ACCOUNT NUMBER WILL BE DISPLAYED ON THE"L8" VIDEO UNIT. FOR EACH TRANSACTION YOU SHOULD ENTER 'N'"LLL" OR JUST HIT 'RETURN' TO KEEP IT, ELSE ENTER 'Y'"L`" TO DELETE THE TRANSACTION. TO END WORKING WITH THIS"Lt" ACCOUNT, TYPE IN AN 'E'."LL:Q$"WHAT IS THE TRANSACTION ACCOUNT NUMBER? "MLB!d: UB!OC: 5M  (R$) R$R$"00"TM  (R$) : uM M1$R$:  :GET MASTERM ER% @:  :NOT FOUNDM ER% M  :GET TRANSACTIONM& ER% (#:  :EOT$N0 (J1$,)"00" X1$(J1$,) : X1$J1$*ND aNX X1$;);J2$;$);J3$;.);J4$;2);J5$;<);J6$;~Nl Q$ "DELETE (Y, N, E)? "N 8: (R$) R$"N"  N R$"E" N R$"Y" : X N CR%ύyO  :DELETE TRANSACTION.O ER%  :NOT A GOOD SIGNRO :"** TRANSACTION DELETED. **"\O  O@:"** THIS ACCOUNT NUMBER DOES NOT EXIST **"OT"** IN THE MASTER (CHART OF ACCOUNTS) FILE. **"OhP(#:"** NO MORE TRANSACTIONS LEFT FOR THIS ACCOUNT. **" P<#: PM BPM FO% OP: ` :CLOSE MARIS`PM: :ANYTHING ELSEuPN:"END OF "PN$PN:Q$"PUSH THE 'RETURN' KEY TO RETURN TO THE MAIN GL MENU "PN 8: (R$) PN "A:GL MENU"Q$w (W(VC$)));VC$;:PGPG: F);"PAGE ";PG2Q&w (W(VS$)));VS$jQ'wTN$"DELETE TRANSACTIONS CONTROL REPORT": PN$,TN$Q(w (W(PN$)));PN$Q)w PN$,TN$Q*w (W(VD$)));VD$Q.wR8w "ACCOUNT DESCRIPTION REF SC DATE AMOUNT"YRBw "------- ----------------------- -------- -- -------- -------------"hRLw: LC: Ry (J1$,)"00" J1$(J1$,)R"y );J1$; );J2$;$);J3$;0);J4$;4);J5$;R'y ?);R,y PU$; J6#S6yLCLC: LC: : $wS@y4S@ "I",,MD$":GLSRC.DAT": S$(), A!()nSJ I : #,I$: A!(I)(I$): I :ACCOUNT #'SST I : #,S$(I): I :SOURCE DESCRIPTIONSS^ ShS:OPENSFI%:NA$"GLMST.DAT":DI%DK%():OP:`Tij ER% T%Tγ F1$(),MA#() :COA FIELDSfTس #, ASF1$(), ASF1$(), ASF1$(), ASF1$(), ASF1$()TⳂ I : #, I AS T$, ASF1$(I): T쳆 F2$() :JE FIELDST #,  AS F2$(),  AS F2$(), ASF2$(), ASF2$()U #, 'AST$, ASF2$(), ASF2$()4U FO% :FILE OPEN FLAG:UGUx:CLOSE`U FO% : FO%UOP: `: ER% T : U@:REWINDUJOP: `: ER% T : U:CREATE NEW RECORDUKE$M1$: OP: `: ER% T5V F1$()M1$: F1$()M2$: F1$()M3$: F1$()M4$nV F1$()M5$:I:DD#MA#(I): :F1$(I)II$:V FI%,OS: V`:UPDATE CURRENT RECORDVj ( :SEARCHVt ER% T : Vĸ:DELETE RECORDWθKE$M1$: OP: `: ER% T : (W(:SEARCH FOR RECORDDW2KE$M1$: OP: `: VW:GET RECORDoWKE$M1$: OP: `W ER% : ER% TWM1$F1$(): M2$F1$(): M3$F1$(): M4$F1$(): M5$F1$()WM1(M1$): M3(M3$): M5(M5$)(X I :II$F1$(I): :MA#(I)DD#::?X:GET NEXT RECORDgXOP: `: ER% T : X:CREATE NEW EXTENTXOLOS: OP : `: ER% TX F2$()J1$: F2$()J2$: F2$()J3$: F2$()J4$Y F2$()(SD!(J5$)):DD#J6#: : F2$()II$*Y FI%,OS: HYH:UPDATE CURRENT EXTENNTRYR gY:DELETE EXTENTYOP : `: ER% T : Y:GET NEXT EXTENTYOSOL: OP : `: ER% TY$J1$F2$(): J2$F2$(): J3$F2$(): J4$F2$()2Z.J5$DS$((F2$())):II$F2$(): :J6#DD#:@ZPÕ bZZÿ "I",,"A:GLSYS.DAT": #,N$ZdÆ V$((N$)):V$()N$: I (N$):#,V$(I): I:ZnMD$V$( ):SC$V$():W(V$())ZË MD$"A" MD$"B" z: MZË MD$"A"  [DN1: V$0[ÿ "I",,MD$":GLSYS.DAT": #,N$g[Æ V$((N$)):V$()N$:I(N$): #,V$(I): I:[MD$V$( ): MD$"B" H: M[Õ : [Ë 5 8 H: M[Ë 6 > A z: M[É 0\N#:X9$()():X8$()(): W\II$((N#DD#H),,):\DD#((X9$II$X8$)(N#))ףp= #z:\ØSD!(S$)((S$,)(S$,)(S$,,))\ØDS$(D!)((D!),,)"/"((D!),)"/"((D!),,)#]Ŀ "I",,"A:GLDA.DAT": #,VD$:  :DATEV]VS$V$(): VC$V$() :SYSTEM, COMPANY NAME]Ă I (V$()): DK%(I)(V$(I)): ]đ SC$: :: :DISPLAY HEADERS]"đ:"ONE MOMENT FOR PROGRAM STARTUP....":: ^Ƒ(W(VC$)));VC$:(W(VS$)));VS$&^Ƒ(W(PN$)));PN$?^Ƒ(W(VD$)));VD$E^.ǎV^8Ǒ Q$;: R$g^tRL$(R$,)^yNj R$"END" M : ^ȍ8:N!:R$E$ώ:DP:DG^ȋ(R$,)" "R$(R$,):^ȋ(R$)Z^(ȂJJ(R$):CH((R$,JJ,))_2ȋCH/CH:DG:PB_<ȋCH.DPDP:DPύ::Pg_Fȋ(CH-CH+)JJύ:_PȃJJ:DGύ:_ZN!(R$):(N!LB!N!UB!)LB!UB!ώ_dȍ:_ȍ 8: (R$) MO: DA: YR: `ȋ(R$) (R$) W`MO(R$,"/"): MO  : MO R$"0"R$w`DA(,R$,"/"): DA `ȋ DA RL$(R$,): R$"0"(R$,):R$RL$R$`MO((R$,)):DA((R$,,)):YR((R$,))aȋ(MO)(MO )(DA)(DA )(YR)(YRc)ώ$aȍ:7aɍ8:DP:DGZaɋ(R$,)" "R$(R$,):aJJ(R$,","):JJR$(R$,,JJ)(R$,JJ):aɋ(R$,)"$"R$(R$,)aɋ(R$)D#:aɂJJ(R$):CH((R$,JJ,))bɋCH/CH:DG:/bɋCH.DPDP:DPύ::Vbɋ(CH-)(CH+)JJύ:nbɃJJ:DGύ:bD#(R$"D"):bXQ$Q$" (Y OR N)? "b]YES:8:RL$"Y"YES:b_ʋ (R$) bbʋRL$"N"ύ:] : cʑ:"POSITION THE PAPER AT THE TOP OF A PAGE. "CcQ$"READY": X: (R$) Zcʋ YES  : cґ"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:c"ӋER%ώcTӑ"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$c^Ӊ Mdӑ"*** NUMBER IS OUT OF RANGE. ***";BELL$:Xdԑ"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:dԑ:" BASIC ERROR NUMBER ";;" LINE NO. ";dԑ" CONSULT BASIC MANUAL FOR EXPLANATION. "dԑ:"ABNORMAL END OF JOB ":dՂI:BELL$;:: M9eHՑ: "*** PROPER SYSTEM FILE NOT FOUND. CAN'T CONTINUE. ***":ezՑ: "*** SYSTEM FILE INITIALIZED IMPROPERLY. CAN'T CONTINUE. ***":e_:10/30/78 Multi ARray ISam - MARIS (OP) e`ꕨ:OP,(,,,T,,, ,,H,,,t fjꕨ:+f=ER%:j::uf: CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) fꕨ:NA$(DI%A)":"NA$:NA$ASNA$fER%:fꕨ:ER%:ER%:6g"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$,ASO8$gO0$"MARIS":O1$():O2$DA$:O3$(): O4$():O5$O4$:O6$(KL%):O7$OC$:O8$"103078"gFI%,:FI%:ER%:h': OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) Gh(땨2:NA$(DI%A)":"NA$:NA$ASNA$Vh2ER%:<rh<땨:ER%:ER%:hF"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$hPFI%,:O0$"MARIS"FI%:ER%:iZDA$O2$:EX%(O3$):NR%(O4$):OA(O5$):KL%(O6$):OC$O7$: FI%,(KL%)ASOK$,({KL%)ASOT$,ASOM$,ASOE$,ASOL$: O1$()x:NR%jdOKKL%:OTOK:OJOT:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OJOTOJ:FI%?jnOK$(OI)OT$(OJ):OJOJ:OI:OT$:jx:"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": BE$:NR%:FI%,:EX%:OPEX%:FI%: OM$"M"NR%NR%:OK$(NR%)OK$(OP)kyOP:NR%:OH():OH():OH():OH() :OTGkzOH(OT)NR%OTOT:OH(OT)OH(OT):zk{OKOT:OHOH(OK):OJOHNR%:OIOJOH:OT$,OK$(OJ)k|OT$OK$(OI)ϥOK$(OIOH),OK$(OI):OIOIOH:OI|k}OK$(OIOH),OT$:OJ,OK:OHlFI%,:O1$():FI%,:ODDI%:/l: CLOSE MARIS FILE (RETURNS: ER%) Ll땨:FI%,:ER%:[lER%:ol땨:ER%ώlNR%:OKKL%:OTOKmOJ:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OT$(OJ)OK$(OI):OJOJ:OJOTFI%:OJ5mOI:OT$:OJFI%mFI%,:O1$():O3$(EX%):O4$(NR%): O5$(OA):O7$OC$:FI%,:FI%:ER%:m: CREATE RECORD (KE$, RETURNS: OI, OS, ER%) m:ER%ώ:nNR%OBςOJNR%OB:OK$(OJ),OK$(OJ):qnNR%NR%:OIOB:OK$(OI)KE$(OS):OK$KE$:OM$"M": OE$(OS):OL$(OS):FI%,OS:ER%:nS: DELETE RECORD (KE$, RETURNS: KE$, OI, OS, ER%) nT:ER%ώ::NR%NR%:OTOS: OINR%ςOJOINR%:OK$(OJ),OK$(OJ):o^OSOL:OSOTύ:^bohOINR%ER%::OS((OK$(OI),)): KE$(OK$(OI),KL%):ER%:o: REWIND (RETURNS: OI, ER%) oOI:NR%ER%::ER%:o: SEARCH (KE$, RETURNS: OI, OS, ER%) pOTNR%:OB:(KE$)KL%KE$(KE$(KL%," "),KL%)Ep&OBOTOI(OTOB):OT$(OK$(OI),KL%):ER%:vp0OT$KE$OTOI:&:OT$KE$OBOI:&p:OS((OK$(OI),)):ER%:p: GET RECORD (KE$, RETURNS: OI, OS, OE, OL, ER%) q:ER%ώ :FI%,OS:OE(OE$):OL(OL$):ER%:Kq: GET NEXT RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) qOINR%ER%::OIOI:OS((OK$(OI),)):FI%,OS: KE$OK$:OE(OE$):OL(OL$):ER%:qG: GET PREVIOUS RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) RrHOIER%::OIOI:OS((OK$(OI),)):FI%,OS: KE$OK$:OE(OE$):OL(OL$):ER%:r: CREATE EXTENT SECTOR (OE, OL, RETURNS: OS, ER%) s:FI%,OE:OL$(OS):FI%,OE: FI%,OL:OE$(OS):FI%,OL:FI%,OS:OE$(OE): OL$(OL):OM$"E":FI%,OS:ER%:Fs: DELETE EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) jsFI%,OS:OM$"E"ER%::sFI%,OE:OL$(OL):FI%,OE: FI%,OL:OE$(OE):FI%,OL:ER%:ss: GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) !ttFI%,OS:OM$"E"ER%:OE(OE$):OL(OL$):ER%'t~>t/: SETUP (NR%) Qt0O:OK$(NR%):yt: GET NEW SECTOR (RETURNS: OS) tOAFI%,OA:OSOA:OA(OL$):EX%EX%:OSEX%tFI%,:O3$(EX%):O5$(OA):FI%,:ER%:u: FREE OLD SECTOR (OS, RETURNS: OE, OL, ER%) duFI%,OS:OE(OE$):OL(OL$):OM$"F":OL$(OA):OAOS: FI%,OS:u IILC A: : II: LC: OE, OL, ER%)