I:GLET.BAS, G/L ENTER TRANSACTIONS, RDR, 6/15/78 REV. CP/M 2.3, 7/27/79J | :COPYRIGHT 1978 RETAIL SCIENCES, INC.(J EJPN$"ENTER TRANSACTIONS"OJ PvJ, @ :READ SOURCE CODE FILE INJ6JD#: JC#: J5$VD$J "O",,MD$":GLTMP.DAT" :TEMP FILE FOR SPEED ENTRYJPU$"$$####,###.##" KC1$"** FIELD 1 (ACCOUNT) " /KC2$"** FIELD 2 (DESCRIPTION)"RKC3$"** FIELD 3 (REFERENCE) "uKC4$"** FIELD 4 (SOURCE) "K&C5$"** FIELD 5 (DATE) "K0C6$"** FIELD 6 (AMOUNT) "KXCV$" CURRENT VALUE: ": CE$" ENTER: " LNR%(V$( )):0: :SET # RECORDS, OPEN FILESL  SC$:);"**** G/L TRANSACTIONS ENTRY ****"}L*);" **** SOURCE CODE TABLE ****"L4: I : );I;");S$(I):L9 );"END";");"TO END THIS PROGRAM"M>:"WHAT IS THE CODE OF THE TRANSACTIONS THAT"GMHQ$"YOU WILL BE ENTERING? ":LB!:UB!:EF%::EF%: SCN!OM:gM  N :ACCOUNT #M (J1$) J1$J1$"00"M R :DESCRIPTIONM  U :REFERENCEM*J4$((SC),): C4$CE$J4$M4 ] :DATEN> a :AMOUNT NH 0u:Nz:Q$ "DOUBLECHECK. ANY CHANGES": XQN (R$) dN YES 0 N  :WRITE TRANS. INTO TEMP FILE (EDIT LATER)N N0 : Q$"ENTER NUMBER OF FIELD TO BE CHANGED: "N: Q: UB!: LB!: OD (R$) Ob 6O N!  N, R, U, Y, ], a@O 0ukO : Q$"ANY MORE FIELDS TO BE CHANGED"O Q : QT : XO (R$)  O YES 0 O O PQ$("): #,Q$;J1$;Q$;Q$;J2$;Q$;Q$;J3$;Q$;Q$;J4$;Q$;Q$;J5$;Q$;Q$;J6$;Q$;PRCRCP.P : RC MeP:Q$"DO YOU WANT TO PRINT A CONTROL REPORT": XzP (R$) P YES PP  :TOP OF FORMPCR%: $w :SET FLAG, DO HEADERSP "I",,MD$":GLTMP.DAT")Q:"THIS PROCESS MAY TAKE A FEW MINUTES . . .":9Q IX RChQ  #, J1$,J2$,J3$,J4$,J5$,J6$: J6#(J6$)QM1$J1$:  :GET MASTERQ ER% EM$"INVALID ACCOUNT NUMBER":: PQ( M3$"2" EM$"INVALID ACCOUNT TYPE"::P4R2 M3$"2" M4$"M" EM$"CAN'T POST TO MASTER"::PTR<  :ADD TRANS TO FILER> J6# JD#JD#J6# : JC#JC#J6# :TOTAL DEBITS, CREDITSR@RPRPRF CR% yRP IXRdFF% :FINAL FLAGRn MSEM$"NEXT ENTRY REJECTED - "EM$-S CR% EM$: LCLC: : EM$7S y=SKSM mSM FF% M :FINAL FLAGSM : EF%  :  SM FO% OP: ` :CLOSE MARISSM :ANYTHING ELSESM CR% M TM"TOTAL TRANSACTIONS ENTERED = ";RP1TM "TOTAL DEBITS = ";: PU$;JD#XTM "TOTAL CREDITS = ";: PU$;JC#rTM JD#JC# JD#,JC#TM "OUT OF BALANCE = ";: PU$;JC#JD#: NTMLC6ύTM:"TOTAL TRANSACTIONS ENTERED = ";RPUM "TOTAL DEBITS = ";: PU$;JD#,UN "TOTAL CREDITS = ";: PU$;JC#UUN " ============="oU N JD#JC# JD#,JC#UN "OUT OF BALANCE = ";: PU$;JD#JC#UNLCLC: UN:"END OF "PN$VN:Q$"PUSH THE 'RETURN' KEY TO RETURN TO THE MAIN GL MENU "VN 8: (R$) /VN "A:GL MENU">V NQ$C1$CE$jV*NQ : QT : LB!d : UB!OC : V/N (R$) R$J1$V4N (R$) R$R$"00"V>N (R$) :  NVHNJ1$R$VRNVRQ$C2$CE$VRQ: 8WR (R$) R$J2$#WR (R$) : R,W!Re7W&RJ2$R$=W0RLWUQ$C3$CE$[WUQ: 8sWU (R$) R$J3$WU (R$) : UWVeWVJ3$R$: WYQ$C4$CE$WYQ: LB!: UB!: WY (R$) R$H4$ XY (R$) : YXYJ4$R$: H4$J4$$X Z3X]Q$C5$CE$BX]Q: ZX] (R$) R$J5$eX]J5$R$kX]zXaQ$C6$CE$XaQ : XaJ6#D#: J6$R$XaXeKXeK(K,R$,(")): KR$(R$,,K)(R$,K):e:X0uY:u"**** CURRENT RECORD VALUE ****"YDuOYNu (J1$,,)"00" X1$(J1$,) : X1$J1$kYXu C1$;);CV$;-);X1$Ybu C2$;);CV$;-);J2$Ylu C3$;);CV$;-);J3$Yvu C4$;);CV$;-);J4$Yu C5$;);CV$;-);J5$Yu C6$;);CV$;-);:J6#Zu I  : "--";: IZuSZ$w (W(VC$)));VC$;:PGPG: F);"PAGE ";PGmZ&w (W(VS$)));VS$Z'wTN$"TRANSACTION ENTRY CONTROL REPORT": PN$,TN$Z(w (W(PN$)));PN$Z)w PN$,TN$Z*w (W(VD$)));VD$Z.w;[8w "ACCOUNT DESCRIPTION REFERENCE SC DATE AMOUNT"[Bw "------- ----------------------- -------- -- -------- -------------"[Lw: LC: [y (J1$,)"00" J1$(J1$,)[y CR%  { \"y );J1$; );J2$;$);J3$;0);J4$;4);J5$;\'y A);&\,y PU$; J6#J\6yLCLC: LC: : $wP\@y\ { );J1$; );J2$;$);J3$;0);J4$;4);J5$;\ { A);:PU$;J6#\>{\@ "I",,MD$":GLSRC.DAT": S$(), A!()]J I : #,I$: A!(I)(I$): I :ACCOUNT #'S=]T I : #,S$(I): I :SOURCE DESCRIPTIONSo]Y #,FM$: FM%(FM$) :FISCAL MONTH STARTw]^ }]h]:OPEN]FI%:NA$"GLMST.DAT":DI%DK%():OP:`]ij ER% T]γ F1$(),MA#() :COA FIELDS0^س #, ASF1$(), ASF1$(), ASF1$(), ASF1$(), ASF1$()c^Ⳃ I : #, I AS T$, ASF1$(I): ^쳆 F2$() :JE FIELDS^ #,  AS F2$(),  AS F2$(), ASF2$(), ASF2$()^ #, 'AST$, ASF2$(), ASF2$()^ FO% :FILE OPEN FLAG__x:CLOSE*_ FO% : FO%O_OP: `: ER% T : ]_@:REWIND_JOP: `: ER% T : _:CREATE NEW RECORD_KE$M1$: OP: `: ER% T_ F1$()M1$: F1$()M2$: F1$()M3$: F1$()M4$9` F1$()M5$:I:DD#MA#(I): :F1$(I)II$:J` FI%,OS: g``:UPDATE CURRENT RECORD|`j ( :SEARCH`t ER% T : `ĸ:DELETE RECORD`θKE$M1$: OP: `: ER% T : `(:SEARCH FOR RECORDa2KE$M1$: OP: `: !a:GET RECORD:aKE$M1$: OP: `\a ER% : ER% TaM1$F1$(): M2$F1$(): M3$F1$(): M4$F1$(): M5$F1$()aM1(M1$): M3(M3$): M5(M5$)a I :II$F1$(I): :MA#(I)DD#:: b:GET NEXT RECORD2bOP: `: ER% T : Kb:CREATE NEW EXTENTsbOLOS: OP : `: ER% Tb F2$()J1$: F2$()J2$: F2$()J3$: F2$()J4$b F2$()(SD!(J5$)):DD#J6#: : F2$()II$b FI%,OS: cH:UPDATE CURRENT EXTENTcR 1c:DELETE EXTENTWcOP : `: ER% T : nc:GET NEXT EXTENTcOSOL: OP : `: ER% Tc$J1$F2$(): J2$F2$(): J3$F2$(): J4$F2$()c.J5$DS$((F2$())):II$F2$(): :J6#DD#:$dPÕ : BELL$()()()FdZÿ "I",,"A:GLSYS.DAT": #,N$ddÆ V$((N$)):V$()N$: I (N$):#,V$(I): I:dnMD$V$( ):SC$V$():W(V$())dË MD$"A" MD$"B" z: MdË MD$"A" dDN1: V$eÿ "I",,MD$":GLSYS.DAT": #,N$KeÆ V$((N$)):V$()N$:I(N$): #,V$(I): I:ueMD$V$( ): MD$"B" H: MeÕ : eË 5 8 H: MeË 6 > A z: MeÉ fN#:X9$()():X8$()(): ;fII$((N#DD#H),,):hfDD#((X9$II$X8$)(N#))ףp= #z:fØSD!(S$)((S$,)(S$,)(S$,,))fØDS$(D!)((D!),,)"/"((D!),)"/"((D!),,)gĿ "I",,"A:GLDA.DAT": #,VD$:  :DATE:gVS$V$(): VC$V$() :SYSTEM, COMPANY NAMEkgĂ I (V$()): DK%(I)(V$(I)): gđ SC$: :: :DISPLAY HEADERSg"đ:"ONE MOMENT FOR PROGRAM STARTUP...."::gƑ(W(VC$)));VC$:(W(VS$)));VS$ hƑ(W(PN$)));PN$#hƑ(W(VD$)));VD$)h.ǎ:h8Ǒ Q$;: R$KhtRL$(R$,)ghyNj R$"END" M : hȍ8:N!:R$E$ώ:DP:DGhȋ(R$,)" "R$(R$,):hȋ(R$)Zh(ȂJJ(R$):CH((R$,JJ,))h2ȋCH/CH:DG:P&i<ȋCH.DPDP:DPύ::PKiFȋ(CH-CH+)JJύ:ciPȃJJ:DGύ:iZN!(R$):(N!LB!N!UB!)LB!UB!ώidȍ:iȍ 8: (R$) MO: DA: YR: iȋ(R$) (R$) ;jMO(R$,"/"): MO  : MO R$"0"R$[jDA(,R$,"/"): DA jȋ DA RL$(R$,): R$"0"(R$,):R$RL$R$jMO((R$,)):DA((R$,,)):YR((R$,))jȋ(MO)(MO )(DA)(DA )(YR)(YRc)ώkȍ:kɍ8:DP:DG>kɋ(R$,)" "R$(R$,):xkJJ(R$,","):JJR$(R$,,JJ)(R$,JJ):kɋ(R$,)"$"R$(R$,)kɋ(R$)D#:kɂJJ(R$):CH((R$,JJ,))kɋCH/CH:DG:lɋCH.DPDP:DPύ:::lɋ(CH-)(CH+)JJύ:RlɃJJ:DGύ:flD#(R$"D"):~lXQ$Q$" (Y OR N)? "l]YES:8:RL$"Y"YES:l_ʋ (R$) lbʋRL$"N"ύ:] : mʑ:"POSITION THE PAPER AT THE TOP OF A PAGE. "'mQ$"READY": X: (R$) >mʋ YES  : umґ"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:m"ӋER%ώmTӑ"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$m^Ӊ Mmӑ"*** NUMBER IS OUT OF RANGE. ***";BELL$: