>AE DICT TRAN HIST_DATE_DESC_COUNT
Subroutines/Dictionaries for TOT.SH, TOT.CD, TOT.DEP and TOT.LN for use within the ACCOUNT file
All items are loaded at the Real TCL prompt, not XTCL if using MESA. If you are not able to get to Real TCL, please contact me and I will give you some assistance.
The subroutines listed below are stored in a directory called SUBR.BP for no other reason than this is what I decided to call it. If I have performed work for your CU in the past and have loaded a subroutine, it would have been loaded in this file. To determine if this file exists, type LIST SUBR.BP and if items list, you will not have to create the file as in step 1.
Follow each step below by using a copy/paste from this document to your Telnet session.
1. At TCL, type CREATE-FILE DIR SUBR.BP
2. After the file is created, type AE SUBR.BP TOT.SH
3. Assuming this name has not been used, the screen will display:
4. Top of New “TOT.SH” in “SUBR.BP”
5. Type I for insert to get to line 001= and then copy/paste the following lines:
SUBROUTINE TOT.SH(RESULT,REC,ID)
RESULT = 0
OPEN '','CLIENT' TO CLIENT ELSE RETURN
OPEN '','TRAN' TO TRAN ELSE RETURN
BEGIN CASE
CASE INDEX(ID,'S',1)
ID = FIELD(ID,'S',1)
CASE INDEX(ID,'L',1)
ID = FIELD(ID,'L',1)
CASE INDEX(ID,'I',1)
ID = FIELD(ID,'I',1)
END CASE
IF REC = '' THEN
READ REC FROM CLIENT, ID ELSE REC = ''
END
T = DCOUNT(REC,CHAR(253))
FOR X = 1 TO T
TYP = REC[1,1]
TRAN.KEY = ID:REC
IF TYP = 'S' THEN
READ TIO FROM TRAN, TRAN.KEY ELSE GO 20
RESULT = RESULT + TIO
END
20 NEXT X
RETURN
6. When the copy is complete, hit RETURN to get to the prompt line *--: and type FI to file item
7. At TCL, type BASIC SUBR.BP TOT.SH to compile the subroutine
8. At TCL, type CATALOG SUBR.BP TOT.SH LOCAL to catalog the subroutine
9. Create the following dictionary at Real TCL in either the ACCOUNT or TRAN file.
AE DICT ACCOUNT TOT.SH
I
SUBR('TOT.SH','',@ID)
MD2,
TOTAL SHARES
11R
S
You will now have to repeat the above steps (excluding step 1) for the TOT.CD, TOT.DEP and TOT.LN items
10. Type AE SUBR.BP TOT.CD
11. Assuming this name has not been used, the screen will display:
12. Top of New “TOT.CD” in “SUBR.BP”
13. Type I for insert to get to line 001= and then copy/paste the following lines:
SUBROUTINE TOT.CD(RESULT,REC,ID)
RESULT = 0
OPEN '','CLIENT' TO CLIENT ELSE RETURN
OPEN '','TRAN' TO TRAN ELSE RETURN
BEGIN CASE
CASE INDEX(ID,'S',1)
ID = FIELD(ID,'S',1)
CASE INDEX(ID,'L',1)
ID = FIELD(ID,'L',1)
CASE INDEX(ID,'I',1)
ID = FIELD(ID,'I',1)
END CASE
IF REC = '' THEN
READ REC FROM CLIENT, ID ELSE REC = ''
END
T = DCOUNT(REC,CHAR(253))
FOR X = 1 TO T
TYP = REC[1,1]
TRAN.KEY = ID:REC
IF TYP = 'I' THEN
READ TIO FROM TRAN, TRAN.KEY ELSE GO 20
RESULT = RESULT + TIO
END
20 NEXT X
RETURN
14. When the copy is complete, hit RETURN to get to the prompt line *--: and type FI to file item
15. At TCL, type BASIC SUBR.BP TOT.CD to compile the subroutine
16. At TCL, type CATALOG SUBR.BP TOT.CD LOCAL to catalog the subroutine
17. Create the following dictionary at Real TCL in either the ACCOUNT or TRAN file.
AE DICT ACCOUNT TOT.CD
I
SUBR('TOT.CD','',@ID)
MD2,
TOTAL CERTS
11R
S
18. Type AE SUBR.BP TOT.DEP
19. Assuming this name has not been used, the screen will display:
20. Top of New “TOT.DEP” in “SUBR.BP”
21. Type I for insert to get to line 001= and then copy/paste the following lines:
SUBROUTINE TOT.DEP(RESULT,REC,ID)
RESULT = 0
OPEN '','CLIENT' TO CLIENT ELSE RETURN
OPEN '','TRAN' TO TRAN ELSE RETURN
BEGIN CASE
CASE INDEX(ID,'S',1)
ID = FIELD(ID,'S',1)
CASE INDEX(ID,'L',1)
ID = FIELD(ID,'L',1)
CASE INDEX(ID,'I',1)
ID = FIELD(ID,'I',1)
END CASE
IF REC = '' THEN
READ REC FROM CLIENT, ID ELSE REC = ''
END
T = DCOUNT(REC,CHAR(253))
FOR X = 1 TO T
TYP = REC[1,1]
TRAN.KEY = ID:REC
IF TYP = 'S' OR TYP = 'I' THEN
READ TIO FROM TRAN, TRAN.KEY ELSE GO 20
RESULT = RESULT + TIO
END
20 NEXT X
RETURN
22. When the copy is complete, hit RETURN to get to the prompt line *--: and type FI to file item
23. At TCL, type BASIC SUBR.BP TOT.DEP to compile the subroutine
24. At TCL, type CATALOG SUBR.BP TOT.DEP LOCAL to catalog the subroutine
25. Create the following dictionary at Real TCL in either the ACCOUNT or TRAN file.
AE DICT ACCOUNT TOT.DEP
I
SUBR('TOT.DEP','',@ID)
MD2,
TOTAL FUNDS
11R
S
26. Type AE SUBR.BP TOT.LN
27. Assuming this name has not been used, the screen will display:
28. Top of New “TOT.LN” in “SUBR.BP”
29. Type I for insert to get to line 001= and then copy/paste the following lines:
SUBROUTINE TOT.LN(RESULT,REC,ID)
RESULT = 0
OPEN '','CLIENT' TO CLIENT ELSE RETURN
OPEN '','TRAN' TO TRAN ELSE RETURN
BEGIN CASE
CASE INDEX(ID,'S',1)
ID = FIELD(ID,'S',1)
CASE INDEX(ID,'L',1)
ID = FIELD(ID,'L',1)
CASE INDEX(ID,'I',1)
ID = FIELD(ID,'I',1)
END CASE
IF REC = '' THEN
READ REC FROM CLIENT, ID ELSE REC = ''
END
T = DCOUNT(REC,CHAR(253))
FOR X = 1 TO T
TYP = REC[1,1]
TRAN.KEY = ID:REC
IF TYP = 'L' THEN
READ TIO FROM TRAN, TRAN.KEY ELSE GO 20
RESULT = RESULT + TIO
END
20 NEXT X
RETURN
30. When the copy is complete, hit RETURN to get to the prompt line *--: and type FI to file item
31. At TCL, type BASIC SUBR.BP TOT.LN to compile the subroutine
32. At TCL, type CATALOG SUBR.BP TOT.LN LOCAL to catalog the subroutine
33. Create the following dictionary at Real TCL in either the ACCOUNT or TRAN file.
AE DICT ACCOUNT TOT.LN
I
SUBR('TOT.LN','',@ID) * -1
MD2,
TOTAL LOANS
11R
S
................
................
In order to avoid copyright disputes, this page is only a partial summary.
To fulfill the demand for quickly locating and searching documents.
It is intelligent file search solution for home and business.