Typical DCL Command Procedure to run the program :

$ DELETE/LOG SI$FOCUS:*.FTM;*/LOG
$ DELETE/LOG SI$FOCUS:*.MAS;*/LOG
$ DEFINE FOC$DIR1 SI$DATA
$ SET DEFAULT SI$FOCUS
$ FOCUS
EXEC (FOCEXEC #1 name)
FIN
$ SET DEFAULT Z$PRT
$ RENAME TEMPFILE.DOC (FOCEXEC #1 name).PRT /LOG
$ SET DEFAULT SI$FOCUS
$ FOCUS
EXEC (FOCEXEC #2 name)
FIN
$ SET DEFAULT Z$PRT
$ RENAME TEMPFILE.DOC (FOCEXEC #2 name).PRT /LOG
$ EXIT

FOCUS program #1:

-*  THIS FOCEXEC WILL PRODUCE THE ACCOUNT 1 PORTION OF THE DEBIT/CREDIT
-*  REPORT.
-*
OFFLINE CLOSE
FILEDEF OFFLINE DISK Z$PRT:TEMPFILE.DOC
JOIN CLEAR *
TABLE FILE BDFILE
PRINT SID_BD AMT_BD PAID_AMT_BD
      ACCT_AMT_BD PURGE_AMT_BD ACCT_NUM1_BD
ON TABLE HOLD AS BDTEMP1
WHERE AMT_BD NE PAID_AMT_BD;
WHERE BD_040_ORDER LE TRAN_CTR_BD;
WHERE (ACCT_NUM1_BD EQ {General Ledger Accounts});
IF ACTFD_BD EQ '2'
IF TRAN_CTR_BD GT 0
END
JOIN TEMP_KEY WITH SID_BD IN BDTEMP1 TO KEY IN AAFILE AS J1
DEFINE FILE BDTEMP1
TEMP_KEY/A11 = 'XX' | SID_BD;
TRMINPD/P11.2C = AMT_BD - PAID_AMT_BD;
SID_ID/A11 = EDIT(SID_BD, '999-99-9999');
END
TABLE FILE BDTEMP1
HEADING CENTER
"<50 DEBIT/CREDIT (ACCOUNT #1) REPORT </1"
PRINT STU_NAME_AA IN 28 AMT_BD AS 'Amount' IN 57 
      PAID_AMT_BD AS ' Paid,Amount' IN 72 
      TRMINPD AS 'Trans-Paid' IN 87
      ACCT_AMT_BD AS 'Accounting,  Amount' IN 102 
      PURGE_AMT_BD AS ' Purge,Amount' IN 117 COLUMN-TOTAL 
BY ACCT_NUM1_BD AS 'Account #1' IN 1
BY SID_ID IN 15
ON ACCT_NUM1_BD SUBTOTAL
ON SID_ID SUBTOTAL
END
JOIN CLEAR *

FOCUS program #2:

-*  THIS FOCEXEC WILL PRODUCE THE ACCOUNT #2 PORTION OF THE DEBIT/CREDIT
-*  REPORT.
-*
OFFLINE CLOSE
FILEDEF OFFLINE DISK Z$PRT:TEMPFILE.DOC
JOIN CLEAR *
TABLE FILE BDFILE
PRINT SID_BD AMT_BD PAID_AMT_BD 
      ACCT_AMT_BD PURGE_AMT_BD ACCT_NUM2_BD
ON TABLE HOLD AS BDTEMP2 
WHERE AMT_BD NE PAID_AMT_BD;
WHERE BD_040_ORDER LE TRAN_CTR_BD;
WHERE (ACCT_NUM2_BD EQ {General Ledger Accounts});
IF ACTFD_BD EQ '2'
IF TRAN_CTR_BD GT 0
END
JOIN TEMP_KEY WITH SID_BD IN BDTEMP2 TO KEY IN AAFILE AS J1
DEFINE FILE BDTEMP2
TEMP_KEY/A11 = 'XX' | SID_BD;
TRMINPD/P11.2C = AMT_BD - PAID_AMT_BD;
SID_ID/A11 = EDIT(SID_BD, '999-99-9999');
END
TABLE FILE BDTEMP2
HEADING CENTER
"<50 DEBIT/CREDIT (ACCOUNT # 2) REPORT </1"
PRINT STU_NAME_AA IN 28 AMT_BD AS 'Amount' IN 57 
      PAID_AMT_BD AS ' Paid,Amount' IN 72 
      TRMINPD AS 'Trans-Paid' IN 87
      ACCT_AMT_BD AS 'Accounting,  Amount' IN 102 
      PURGE_AMT_BD AS ' Purge,Amount' IN 117 COLUMN-TOTAL 
BY ACCT_NUM2_BD AS 'Account #2' IN 1
BY SID_ID IN 15
ON ACCT_NUM2_BD SUBTOTAL
ON SID_ID SUBTOTAL
END
JOIN CLEAR *

This page hosted by Get your own Free Homepage