The master describes a flat file with the first 36 bytes the same for every record. The rest of the record varies depending on RECTYPE = L ir D. Below is the original master that will work in 77 but not 8. I don't get ay errors, just recs = 0. It does find the file and produces data when I test with PRINT SEG.PAGE_TYPE.
I'm out of time and desperate!!!! I've spent monthes with and without a consultant and not any closer. If anyone can hlep, appreciation doesn't begin to
describe it.
thanks, Gayle
Windows 7
java 10
Int Explorer 9
FILENAME=JVREC2 ,SUFFIX=FIX,$
SEGNAME=ROOT,$
GROUP=JV, ALIAS=KEY, A36, A36,$
FIELD=RECTYPE ,RECORD_TYPE ,A001,A001,ACCEPT= D OR L,$
FIELD=PAGE_TYPE ,PAGE_TYPE ,A001,A001,DESC='PAGE_TYPE',$
FIELD=BAT_TRANS_CD ,BAT_TRANS_CD,A04,A04,DESC='BAT_TRANS_CD',$
FIELD=BAT_AGENCY ,BAT_AGENCY ,A04,A04,DESC=’BAT_AGENCY’,$
FIELD=BAT_NUMBER ,BAT_NUMBER ,A06,A06,DESC=’BAT_NUMBER’,$
FIELD=DOC_TRANS_CD ,DOC_TRANS_CD,A04,A04,DESC=’DOC_TRANS_CD’,$
FIELD=DOC_AGENCY ,DOC_AGENCY ,A04,A04,DESC=’DOC_AGENCY’,$
FIELD=DOC_NBR_PREF ,DOC_NBR_PREF,A03,A03,DESC=’DOC_NBR_PREF’,$
FIELD=DOC_NBR_NBR ,DOC_NBR_NBR ,A08,A08,DESC=’DOC_NBR_NBR’,$
FIELD=DOC_NBR_FILL ,DOC_NBR_FILL,A01,A01,DESC=’DOC_NBR_FILL’,$
GROUP=REC, ALIAS=DETAIL, A465, A465,$
FIELD=TRANS_CD ,TRANS_CD ,A02,A02,DESC=’TRANS_CD’,$
FIELD=TRANS_NBR ,TRANS_NBR ,A14,A14,DESC=’TRANS_NBR’,$
FIELD=RECORD_MM ,RECORD_MM ,A02,A02,DESC=’RECORD_MM’,$
FIELD=RECORD_DD ,RECORD_DD ,A02,A02,DESC=’RECORD_DD’,$
FIELD=RECORD_YY ,RECORD_YY ,A02,A02,DESC=’RECORD_YY’,$
FIELD=FISC_MM ,FISC_MM ,A02,A02,DESC=’FISC_MONTH’,$
FIELD=FISC_YY ,FISC_YY ,A02,A02,DESC=’FISC_YEAR’,$
FIELD=BUDGET_FY ,BUDGET_FY ,A02,A02,DESC=’BUDGET_FY’,$
FIELD=DOC_ACTN ,DOC_ACTN ,A01,A01,DESC=’DOC_ACTION’,$
FIELD=BUD_OVR_IND ,BUD_OVR_IND ,A01,A01,DESC=’BUD_OVR_IND’,$
FIELD=DOC_DESC ,DOC_DESC ,A12,A12,DESC=’DOC_DESC’,$
FIELD=DBIT_DOC_TOT ,DBIT_DOC_TOT,A12,A12,DESC=’DBIT_DOC_TOT’,$
FIELD=TOT1_FILL ,TOT1_FILL ,A02,A02,DESC='TOT1_FILLER',$
FIELD=CRDT_DOC_TOT ,CRDT_DOC_TOT,A12,A12,DESC=’CRDIT_DOC_TOT’,$
FIELD=TOT2_FILL ,TOT2_FILL ,A02,A02,DESC='TOT_FILLER',$
FIELD=REVERSAL_MM ,REVERSAL_MM ,A2,A2,DESC=’REVERSAL_MM’,$
FIELD=REVERSAL_DD ,REVERSAL_DD ,A2,A2,DESC=’REVERSALL_DD’,$
FIELD=REVERSAL_YY ,REVERSAL_YY ,A2,A2,DESC=’REVERSAL_YY’,$
FIELD=ACT_DR_TOT ,ACT_DR_TOT ,A12,A12,DESC=’ACTUAL_DR_TOT’,$
FIELD=ACT_FILL1 ,ACT_FILL1 ,A02,A02,DESC='ACT_TOT_FILL1',$
FIELD=ACT_CR_TOT ,ACT_CR_TOT ,A12,A12,DESC=’ACTUAL_CR_TOT’,$
FIELD=ACT_FILL2 ,ACT_FILL2 ,A02,A02,DESC='ACT_TOT_FILL2',$
FIELD=FILLER1 ,FILLER1 ,A46,A46,DESC='FILLER1',$
FIELD=RECORD_MM_Z ,RECORD_MM_Z ,A02,A02,DESC=’RECORD_MM’,$
FIELD=RECORD_DD_Z ,RECORD_DD_Z ,A02,A02,DESC=’RECORD_DD’,$
FIELD=RECORD_YY_Z ,RECORD_YY_Z ,A02,A02,DESC=’RECORD_YY’,$
FIELD=FILLER2 ,FILLER2 ,A309,A309, DESC=’FILLER’,$
$******************************************************************$
$ HEADER RECORD (REC_TYPE=D)
$******************************************************************$
SEGMENT=JVREC2H,SEGTYPE=S0,PARENT=ROOT,POSITION=TRANS_CD,OCCURS=1,$
FIELD=TRANS_CD ,TRANS_CD ,A02,A02,DESC=’TRANS_CD’,$
FIELD=TRANS_NBR ,TRANS_NBR ,A14,A14,DESC=’TRANS_NBR’,$
FIELD=RECORD_MM ,RECORD_MM ,A02,A02,DESC=’RECORD_MM’,$
FIELD=RECORD_DD ,RECORD_DD ,A02,A02,DESC=’RECORD_DD’,$
FIELD=RECORD_YY ,RECORD_YY ,A02,A02,DESC=’RECORD_YY’,$
FIELD=FISC_MM ,FISC_MM ,A02,A02,DESC=’FISC_MONTH’,$
FIELD=FISC_YY ,FISC_YY ,A02,A02,DESC=’FISC_YEAR’,$
FIELD=BUDGET_FY ,BUDGET_FY ,A02,A02,DESC=’BUDGET_FY’,$
FIELD=DOC_ACTN ,DOC_ACTN ,A01,A01,DESC=’DOC_ACTION’,$
FIELD=BUD_OVR_IND ,BUD_OVR_IND ,A01,A01,DESC=’BUD_OVR_IND’,$
FIELD=DOC_DESC ,DOC_DESC ,A12,A12,DESC=’DOC_DESC’,$
FIELD=DBIT_DOC_TOT ,DBIT_DOC_TOT,A12,A12,DESC=’DBIT_DOC_TOT’,$
FIELD=TOT1_FILL ,TOT1_FILL ,A02,A02,DESC='TOT1_FILLER',$
FIELD=CRDT_DOC_TOT ,CRDT_DOC_TOT,A12,A12,DESC=’CRDIT_DOC_TOT’,$
FIELD=TOT2_FILL ,TOT2_FILL ,A02,A02,DESC='TOT_FILLER',$
FIELD=REVERSAL_MM ,REVERSAL_MM ,A2,A2,DESC=’REVERSAL_MM’,$
FIELD=REVERSAL_DD ,REVERSAL_DD ,A2,A2,DESC=’REVERSALL_DD’,$
FIELD=REVERSAL_YY ,REVERSAL_YY ,A2,A2,DESC=’REVERSAL_YY’,$
FIELD=ACT_DR_TOT ,ACT_DR_TOT ,A12,A12,DESC=’ACTUAL_DR_TOT’,$
FIELD=ACT_FILL1 ,ACT_FILL1 ,A02,A02,DESC='ACT_TOT_FILL1',$
FIELD=ACT_CR_TOT ,ACT_CR_TOT ,A12,A12,DESC=’ACTUAL_CR_TOT’,$
FIELD=ACT_FILL2 ,ACT_FILL2 ,A02,A02,DESC='ACT_TOT_FILL2',$
FIELD=FILLER1 ,FILLER1 ,A46,A46,DESC='FILLER1',$
FIELD=RECORD_MM_Z ,RECORD_MM_Z ,A02,A02,DESC=’RECORD_MM’,$
FIELD=RECORD_DD_Z ,RECORD_DD_Z ,A02,A02,DESC=’RECORD_DD’,$
FIELD=RECORD_YY_Z ,RECORD_YY_Z ,A02,A02,DESC=’RECORD_YY’,$
FIELD=FILLER2 ,FILLER2 ,A309,A309, DESC=’FILLER’,$
DEFINE DBIT_H_TOT/D12.2=EDIT (DBIT_DOC_TOT)/100; $
DEFINE CRDIT_H_TOT/D12.2=EDIT (CRDT_DOC_TOT)/100; $
$******************************************************************$
$ DETAIL RECORD (REC_TYPE=L)
$******************************************************************$
SEGMENT=JVREC2D,SEGTYPE=S0,PARENT=ROOT,POSITION=TRANS_CD,OCCURS=1,$
FIELD=ACCT_TYPE ,ACCT_TYPE ,A02,A02,DESC=’ACCT_TYPE’,$
FIELD=JVFUND ,JVFUND ,A04,A04,DESC=’JVFUND’,$
FIELD=AGENCY ,AGENCY ,A03,A03,DESC='AGENCY',$
FIELD=XORG ,XORG ,A04,A04,DESC='XORGANIZATION',$
FIELD=SUB_ORG ,SUB_ORG ,A02,A02,DESC=’SUB_ORG’,$
FIELD=ACTIVITY ,ACTIVITY ,A04,A04,DESC=’ACTIVITY’,$
FIELD=OBJ_REV_SRCE ,OBJ_REV_SRCE,A04,A04,DESC=’OBJ_REV_SRCE’,$
FIELD=SUB_OB_RV_SRC,SUB_OB_RV_SRC,A2,A2,DESC=’SUB_OB_RV_SR’,$
FIELD=BS_ACCOUNT ,BS_ACCOUNT ,A04,A04,DESC=’BS_ACCOUNT’,$
FIELD=JOB_NBR ,JOB_NUB ,A08,A08,DESC=’JOB_NBR’,$
FIELD=RPTNG_CAT ,RPTNG_CAT ,A04,A04,DESC=’REPORTING_CAT’,$
FIELD=INTRA_RF_GOV_FND,INTRA_RF_BOV_FND,A04,A04,
DESC=’INTRA_REF_BOVT_FUND’,$
FIELD=INTRA_RF_GOV_AGNCY,INTRA_RF_GOV_AGNCY,A03,A03,
DESC=’INTRA_REF_GOVT_AGENCY’,$
FIELD=BANK_CODE ,BANK_CODE ,A02,A02,DESC=’BANK_CODE’,$
FIELD=VENDOR_CODE ,VENDOR_CODE ,A11,A11,DESC=’VENDOR_CODE’,$
FIELD=VEND_NAME1 ,VEND_NAME1 ,A17,A17,DESC=’VEND_NAME1’,$
FIELD=VEND_FILLER ,VEND_FILLER ,A13,A13,DESC=’VEND_FILLER’,$
FIELD=LIND_DESC_JV ,LINE_DESC_JV,A25,A25,DESC=’LINE_DESC_JV’,$
FIELD=LN_DESC_FILL ,LN_DESC_FILL,A06,A06,DESC=’LINE_DESC_FIL’,$
FIELD=DBIT_LN_AMT ,DBIT_LN_AMT ,A12,A12,DESC=’DEBIT_LN_AMT’,$
FIELD=AMT_FILL ,AMT_FILL ,A02,A02,DESC='AMT_FILLER',$
FIELD=CRDIT_LN_AMT ,CRDIT_LN_AMT,A12,A12,DESC=’CREDIT_LN_AMT’,$
FIELD=DATE_FILL ,DAATE_FILL ,A02,A02,DESC='DATE_FILLER',$
FIELD=REC_MM_Z ,REC_MM_Z ,A02,A02,DESC='RECORD_MONTH_Z',$
FIELD=REC_DD_Z ,REC_DD_Z ,A02,A02,DESC='RECORD_DAY_Z',$
FIELD=REC_YY_Z ,REC_YY_Z ,A02,A02,DESC='RECORD_YEAR_Z',$
FIELD=FILLER ,FILLER ,A309,A309,DESC=’FILLER’,$
DEFINE DEBIT_L_AMT/D12.2=EDIT (DBIT_LN_AMT)/100; $
DEFINE CRDIT_L_AMT/D12.2=EDIT (CRDIT_LN_AMT)/100; $
This message has been edited. Last edited by: <Kathryn Henning>, April 09, 2015 04:32 PM WF 7.7.3 Window XP EXCEL 2010