FOCUS program : 

JOIN CLEAR *
FILEDEF BBD120 DISK (file name for BBD120RPT.PRT) 
DEFINE FILE BBD120
THS_SUBCODE/A1=EDIT(BBD120_SUBCD,'9');
BBD120_TOT_AMT/A6=BBD120_AMT1|BBD120_AMT2;
END
TABLE FILE BBD120
PRINT BBD120_FRS_ACCT BBD120_TR BBD120_SUBCD BBD120_DESC
      BBD120_TOT_AMT BBD120_ACCT_ID BBD120_NAME
      BBD120_CP BBD120_EFF_DT BBD120_TRM BBD120_SEQ
      BBD120_BATCH_REF
ON TABLE HOLD AS BBDTMP1
WHERE THS_SUBCODE EQ '4';
END
-*
DEFINE FILE BBDTMP1
BBD120_NUM_AMT/F9.2=EDIT(BBD120_TOT_AMT);
BBD120_NUM_FIX/F9.2=BBD120_NUM_AMT/100;
END
TABLE FILE BBDTMP1
HEADING CENTER
"B/R ACCOUNTING FEED DETAIL"
PRINT BBD120_SUBCD AS 'SUBCD' IN 19 BBD120_DESC AS 'DESCRIPTION' IN 25
      BBD120_NUM_FIX AS 'AMOUNT' IN 56
      BBD120_ACCT_ID AS 'ACCOUNT ID' IN 66 BBD120_NAME AS 'NAME' IN 78
      BBD120_CP AS 'C/P' IN 99 BBD120_EFF_DT AS 'EFF-DATE' IN 103
      BBD120_TRM AS 'TRM' IN 112 BBD120_SEQ AS 'SEQ' IN 116
      BBD120_BATCH_REF AS 'BATCH  REF' IN 120
BY BBD120_FRS_ACCT AS 'FRS ACCOUNT' IN 1
BY BBD120_TR AS 'TR' IN 15 
ON BBD120_FRS_ACCT SUBTOTAL AS 'Total For '
ON BBD120_TR SUBTOTAL AS 'Total For '
END
JOIN CLEAR *


Master File Description (MFD) for BBD120 :  

FILE=BBD120,SUFFIX=FIX
SEGNAME=ROOT
FIELD=BBD120_FRS_ACCT, ,A14,A14,$  
FIELD=BBD120_TR, ,A04,A04,$  
FIELD=BBD120_SUBCD, ,A06,A06,$  
FIELD=BBD120_DESC, ,A31,A31,$  
FIELD=BBD120_AMT1, ,A04,A04,$  
FIELD=GEN_FIL001, ,A01,A01,$   
FIELD=BBD120_AMT2, ,A02,A02,$  
FIELD=GEN_FIL002, ,A03,A03,$   
FIELD=BBD120_ACCT_ID, ,A11,A11,$  
FIELD=BBD120_NAME, ,A21,A21,$  
FIELD=BBD120_CP, ,A04,A04,$  
FIELD=BBD120_EFF_DT, ,A09,A09,$  
FIELD=BBD120_TRM, ,A04,A04,$  
FIELD=BBD120_SEQ, ,A04,A04,$  
FIELD=BBD120_BATCH_REF, ,A13,A13,$  

This page hosted by Get your own Free Homepage