INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

webfocus error (FOC1070) VALUE FOR JOIN 'FROM' FIELD OUT OF SEQUENCE. RETRIEVAL ENDED

webfocus error (FOC1070) VALUE FOR JOIN 'FROM' FIELD OUT OF SEQUENCE. RETRIEVAL ENDED

webfocus error (FOC1070) VALUE FOR JOIN 'FROM' FIELD OUT OF SEQUENCE. RETRIEVAL ENDED

(OP)
Hi,
I am new to webfocus. trying to migrate from focus to webfocus and im getting below error in one of my code if someone can help me with it.
Its related to join. Thanks in advance for help

(FOC1070) VALUE FOR JOIN 'FROM' FIELD OUT OF SEQUENCE. RETRIEVAL ENDED
0 ERROR AT OR NEAR LINE 270 IN PROCEDURE bltx02_summary_16335
(FOC205) THE DESCRIPTION CANNOT BE FOUND FOR FILE NAMED: PRE_CNTY
BYPASSING TO END OF COMMAND
0 ERROR AT OR NEAR LINE 274 IN PROCEDURE bltx02_summary_16335
(FOC205) THE DESCRIPTION CANNOT BE FOUND FOR FILE NAMED: PRE_CNTY
BYPASSING TO END OF COMMAND
My code is as below If someone can suggest what can be done to resolve it.

CODE --> WEBFOCUS

-SET &ECHO=ALL;
-*
EX apcon.fex
-SET &&REPORTNO='BLTX-02-SUM';
-SET DEBUGFLAG=FGETENV(9,'debugFlag',9,'A9');
-TYPE DebugFlag &DEBUGFLAG
-* check debug flag
-SET &ECHO=ON;
-IF &DEBUGFLAG EQ 'debugOff' GOTO NODEBUG;
-SET &ECHO=ALL;
-NODEBUG
-* dates to print
-SET FROMDATE=FGETENV(9,'FROM_DATE',8,'A8');
-SET TODATE=FGETENV(7,'TO_DATE',8,'YYYYMMDD');
-SET CYCLE_CODE=FGETENV(10,'CYCLE_CODE',2,'A2');
-SET BL_CYC_DATE=FGETENV(11,'BL_CYC_DATE',8,'A8');
-SET &BL_CYC_DATE=EDIT(&BL_CYC_DATE,'$$$$99/99/')|EDIT(&BL_CYC_DATE,'9999');
-SET &FROMDATE=EDIT(&FROMDATE,'$$$$99/99/')|EDIT(&FROMDATE,'9999');
-SET &TODATE=EDIT(&TODATE,'$$$$99/99/')|EDIT(&TODATE,'9999');
-* CH001
-*SET CSV_NAME=FGETENV(11,'CSV_REPNAME',15,'A15');
-* front page parameters
-SET SUB_MKT_IND=FGETENV(14,'SUB_MARKET_IND',1,'A1');
-SET &I=1;
-SET &&APPARTXT.&I = 'From Date:';
-SET &&APPARVAL.&I = &FROMDATE;
-SET &I=2;
-SET &&APPARTXT.&I = 'To Date:';
-SET &&APPARVAL.&I = &TODATE;
-SET &I=3;
-SET &&APPARTXT.&I = 'Submarket:';
-SET &MKT_LVL = IF &SUB_MKT_IND EQ 'M' THEN 'Y' ELSE 'N';
-IF &SUB_MKT_IND EQ 'A' GOTO ALLSUB;
-SET SUB_MKT=FGETENV(9,'SUBMARKET',3,'A3');
-SET &&APPARVAL.&I = &SUB_MKT;
-GOTO CONTINUE;
-ALLSUB
-SET &&APPARVAL.&I = 'All Submarkets';
-CONTINUE
-SET &MARKET=FGETENV(12,'TLG_MARKETID',3,'A3');
-SET TXCSV_NAME=FGETENV(25,'EXT_CHGSUM_CSV_SHORT_NAME',14,'A14');
-SET TXADJ_NAME=FGETENV(25,'EXT_ADJSUM_CSV_SHORT_NAME',14,'A14');
-SET REP_NAME=FGETENV(18,'LAY_REP_SHORT_NAME',14,'A14');
-SET CNTYSEQ_NAME=FGETENV(18,'CNTYSEQ_SHORT_NAME',14,'A14');
-SET TAXSTAPD_NAM=FGETENV(19,'TAXSTAPD_SHORT_NAME',14,'A14');
-* Linux Migration Start Change
-SET &WORKDIR=FGETENV(128,'TLG_SHORTNAME_DIR',128,'A128');
-SET &UNAME_RESULT = FGETENV(12,'UNAME_RESULT',20,'A20');
-* Linux Migration End Change
-* Linux Migration Start Change
-SET TXCSV_FILE = (&WORKDIR || '/'||&TXCSV_NAME);
-IF  &UNAME_RESULT EQ 'Linux' THEN GOTO L1556551 ;
-SET TXCSV_FILE = ('../'||&TXCSV_NAME);
-L1556551

-* Linux Migration End Change
-* Linux Migration Start Change
-SET TXADJ_FILE  = (&WORKDIR || '/'||&TXADJ_NAME);
-IF  &UNAME_RESULT EQ 'Linux' THEN GOTO L1556631 ;
-SET TXADJ_FILE = ('../'||&TXADJ_NAME);
-L1556631

-* Linux Migration End Change
-* Linux Migration Start Change
-SET CNTYSEQ = (&WORKDIR || '/'||&CNTYSEQ_NAME);
-IF  &UNAME_RESULT EQ 'Linux' THEN GOTO L1556552 ;
-SET CNTYSEQ = ('../'||&CNTYSEQ_NAME);
-L1556552

-* Linux Migration End Change
-* Linux Migration Start Change
-SET TAXSTAPD = (&WORKDIR || '/'||&TAXSTAPD_NAM);
-IF  &UNAME_RESULT EQ 'Linux' THEN GOTO L1556553 ;
-SET TAXSTAPD = ('../'||&TAXSTAPD_NAM);
-L1556553

-* Linux Migration End Change
-* Linux Migration Start Change
-SET &&REP_FILE  = (&WORKDIR || '/'||&REP_NAME);
-IF  &UNAME_RESULT EQ 'Linux' THEN GOTO L1556639 ;
-SET &&REP_FILE = ('../'||&REP_NAME);
-L1556639

-* Linux Migration End Change

 
 
FILEDEF OFFLINE DISK &&REP_FILE
OFFLINE
-*--------------------------------------------------
-* define the file to the file on disk
-*
FILEDEF CNTYSEQ DISK &CNTYSEQ (RECFM V LRECL 31
FILEDEF TAXSTAPD DISK &TAXSTAPD (RECFM V LRECL 26
FILEDEF TXCCSV  DISK &TXCSV_FILE (RECFM F LRECL 102
FILEDEF TXACSV   DISK &TXADJ_FILE (RECFM F LRECL 84 
SET PANEL=250
-******************************************************************************
-*		Sum the data from the charge flat file
-*
DEFINE FILE TXCCSV
TAX_AMT/P14.2=TAX_AMT;
END
-RUN
-*
TABLE FILE TXCCSV
SUM 
MAX.RATE
AND TAX_AMT
BY SUB_CODE
BY TAX_CATE
BY STA_CODE
BY GEO_CODE
BY TAX_AUTH
BY TAX_TYPE
BY SUB_MARKET_CD
BY TAX_SRV_CTG
BY TAX_SRV_TYPE
-*BY CHG_CRE_DATE
-* shweta change start
BY CHG_CRE_DATE
-* Shweta chnage end
ON TABLE HOLD AS TMPTXCHG
END
-RUN
-*
-*
-******************************************************************************
-*		SUM the data from the adjustment flat file
-*
TABLE FILE TXACSV
SUM CRE_AMT
CREDIT_AMT
BY SUB_CODE
BY TAX_CATE
BY STA_CODE
BY GEO_CODE
BY TAX_AUTH
BY TAX_TYPE
BY SUB_MARKET_CD
BY TAX_SRV_CTG
BY TAX_SRV_TYPE
-*BY ADJ_CRE_DATE
-* shweta change start
BY ADJ_CRE_DATE
-* shweta change end
ON TABLE HOLD AS TMPTXADJ
END
-RUN
-*
-*
-******************************************************************************
-*
-******************************************************************************
-*			Define the temporary files
-*
FILEDEF TMPTXCHG DISK tmptxchg.ftm
FILEDEF TMPTXADJ DISK tmptxadj.ftm
-*
-*
-******************************************************************************
-*		Match between the adjustments and the charges
-*
MATCH FILE TMPTXCHG
PRINT RATE TAX_AMT
BY SUB_CODE
BY STA_CODE
BY TAX_CATE
BY GEO_CODE
BY TAX_AUTH
BY TAX_TYPE
BY SUB_MARKET_CD 
BY TAX_SRV_CTG
BY TAX_SRV_TYPE
RUN
FILE TMPTXADJ
PRINT CRE_AMT
CREDIT_AMT
BY SUB_CODE
BY STA_CODE
BY TAX_CATE
BY GEO_CODE
BY TAX_AUTH
BY TAX_TYPE
BY SUB_MARKET_CD
BY TAX_SRV_CTG
BY TAX_SRV_TYPE
AFTER MATCH HOLD OLD-OR-NEW
END
-RUN
-*
MATCH FILE TAXSTAPD
SUM STATE_NAME STT_CHR
BY STA_CODE
RUN
FILE HOLD
PRINT GEO_CODE TAX_AUTH TAX_TYPE CRE_AMT CREDIT_AMT 
SUB_CODE 
TAX_CATE RATE SUB_MARKET_CD TAX_AMT 
TAX_SRV_CTG TAX_SRV_TYPE
BY STA_CODE
BY GEO_CODE
BY TAX_AUTH
BY TAX_TYPE
WHERE (TAX_AUTH NE 0) AND (TAX_TYPE NE 0)
AFTER MATCH HOLD NEW
END
-RUN
-*
JOIN
 SUB_CODE IN HOLD
TO
 MARKET_CODE IN TXTMKT AS JMAK
END
-RUN
-*
DEFINE FILE HOLD
STT_CNTY/A5=STT_CHR ;
END
-RUN
-*
TABLE FILE HOLD
PRINT MARKET_NAME SUB_CODE TAX_CATE GEO_CODE
TAX_TYPE TAX_AUTH 
RATE SUB_MARKET_CD TAX_AMT 
TAX_SRV_CTG TAX_SRV_TYPE CRE_AMT CREDIT_AMT
STATE_NAME STA_CODE 
BY STT_CNTY
BY GEO_CODE
BY TAX_AUTH
BY TAX_TYPE
WHERE (TAX_AUTH NE 0) AND (TAX_TYPE NE 0)
-*ON TABLE HOLD AS PRE_CNTY
ON TABLE HOLD AS PRE_CNTY FORMAT ALPHA
END
-RUN

-*UNIX cp pre_cnty.mas /dbl_sh_unc/fs_users/oprtub01/users/shweta/DELETE
-*UNIX cp pre_cnty.ftm /dbl_sh_unc/fs_users/oprtub01/users/shweta/DELETE

-*EXIT

TABLE FILE CNTYSEQ
PRINT *
BY STT_CNT NOPRINT
ON TABLE HOLD AS CNTYSEQ_HOLD 
END
-RUN

-*
JOIN CLEAR *
JOIN
 STT_CNTY IN PRE_CNTY
TO
 STT_CNT IN CNTYSEQ_HOLD AS J1
END
-RUN
-*
TABLE FILE PRE_CNTY
PRINT MARKET_NAME SUB_CODE TAX_CATE GEO_CODE TAX_AUTH 
TAX_TYPE STA_CODE RATE SUB_MARKET_CD 
TAX_AMT TAX_SRV_CTG TAX_SRV_TYPE CRE_AMT CREDIT_AMT 
STATE_NAME COUNTY_NAME 
WHERE (TAX_AUTH NE 0) AND (TAX_TYPE NE 0)
ON TABLE HOLD
END
-RUN
-*
-******************************************************************************
-*		Defines for the hold table from the match above
-*
DEFINE FILE HOLD
TAX_CATE/A1= DECODE  TAX_CATE(C '1' N '2' 2 '3' 1 '4' S '5' F '9');
PLACE_N/A16=DECODE  TAX_CATE(1 'CITY' 2 'COUNTY' 5 'STATE'
4 'MISC COUNTY' 3 'MISC CITY' 9 'FEDERAL');
GEO/A10 = IF GEO_CODE EQ '999999999 ' THEN '          '
     ELSE IF (TAX_AUTH EQ 1) AND (TAX_TYPE NE 10 OR 99 OR 51) THEN 
EDIT (GEO_CODE, '990000000 ')
     ELSE IF (TAX_AUTH EQ 2 OR 4 OR 5) AND (TAX_TYPE NE 10 OR 99) THEN 
EDIT (GEO_CODE, '999990000 ')
     ELSE GEO_CODE;
MKTLVL1/A1 = '&MKT_LVL';
MKTNM1/A3 = '&MARKET'; 
MARKET_NAME/A30 = IF MKTLVL1 EQ 'Y' THEN MKTNM1 ELSE MARKET_NAME;
SUB_CODE/A3 = IF MKTLVL1 EQ 'Y' THEN MKTNM1 ELSE SUB_CODE;
AUTH/P2 = IF TAX_AUTH EQ 9 THEN 0 ELSE TAX_AUTH;
TTYPE/P4 = TAX_TYPE;
TAX_AMT/D10.2 = TAX_AMT;
CRE_AMT/D10.2 = CRE_AMT;
END
TABLE FILE HOLD
HEADING
-SET &REPCODE=&&REPORTNO;
-SET &REPNAME='S U M M A R Y     T A X     R E P O R T';
-INCLUDE gnrpdef.fex
-INCLUDE gnrphdr.fex
"<59 Sub-Market:<MARKET_NAME"
" "
" "
"<45 From Date &FROMDATE To Date &TODATE"
" "
" "
"STATE: <STATE_NAME"
" "
"CYCLE CODE: &CYCLE_CODE"
" "
"CYCLE BILL DATE: &BL_CYC_DATE"
"<PLACE_N REPORT"
SUM 
TAX_AMT NOPRINT
CRE_AMT NOPRINT
COMPUTE TOTAL_TAX/D13.2 = TAX_AMT - CRE_AMT; AS 'TAX AMOUNT'
-*BY SUB_CODE NOPRINT
-* start change shweta
BY SUB_CODE NOPRINT
-* End change shweta
BY STA_CODE NOPRINT
BY GEO AS 'GEO CODE' 
BY TAX_CATE NOPRINT
BY TTYPE AS 'TAX TYPE'
BY AUTH AS 'TAX AUTHORITY'
BY RATE AS 'RATE'
BY TAX_SRV_CTG AS 'SERVICE,CATEGORY'
BY TAX_SRV_TYPE AS 'SERVICE,TYPE'
WHERE (TAX_AMT - CRE_AMT) NE 0
ON TAX_CATE PAGE-BREAK
ON STA_CODE
SUBFOOT
" "
"TOTAL TAXES INCLUDE FEDERAL, STATE, COUNTY, CITY AND MISCELLANEOUS TAXES.
<ST.TOTAL_TAX"
FOOTING BOTTOM
-INCLUDE gnrpftr.fex
END
-RUN

-*---------------------* Check status of REPORT section *------------------*
-*
-IF &FOCERRNUM NE 0 GOTO ERR;
-*
-INCLUDE gnrpempt.fex 

-*------------------------* Display empty report text *--------------------*
-*


EX dbdis.fex
-RUN
-* Linux Migration Start Change
-SET &UNAME_RESULT = FGETENV(12,'UNAME_RESULT',20,'A20');
-IF  &UNAME_RESULT EQ 'Linux' THEN GOTO LINUX_OS;
-QUIT FOCUS 0
-* Linux Migration End Change
-*
-ERR
-* Linux Migration Start Change
-SET &UNAME_RESULT = FGETENV(12,'UNAME_RESULT',20,'A20');
-IF  &UNAME_RESULT EQ 'Linux' THEN GOTO LINUX_OS;
-QUIT FOCUS &FOCERRNUM
-LINUX_OS
-EXIT
-* Linux Migration End Change 

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close