[Search for users]
[Overall Top Noters]
[List of all Conferences]
[Download this site]
| Title: | FOCUS, from INFORMATION BUILDERS |
|
| Moderator: | ZAYIUS::BROUILLETTE |
|
| Created: | Thu Feb 19 1987 |
| Last Modified: | Mon May 05 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 615 |
| Total number of notes: | 1779 |
448.0. "FOCUS V6.1 PROBLEM" by ISIDRO::ALLIN1 () Fri Aug 09 1991 09:15
Hi everybody,
Here in Spain, we installed FOCUS version 6.01 last Friday.
Until now, we have worked with any database without problems.
With the new version something strange happened, that follow:
When we try to run the following report :
SET WIDTH=132
SET PAGE=ON
SET LINES=52
DEFINE FILE CC
PEN/I4 = DL_RQ_CQY - BL_CQY;
REC/I4 = IF ORD_SUP_CD NE 'N' THEN DL_RQ_CQY - POE_RC_CQY
ELSE IF POE_AR_NT_RF GT '0' THEN 0 ELSE DL_RQ_CQY;
ENT/I4 = IF ORD_SUP_CD NE 'N' THEN POE_RC_CQY - DNG_CQY
ELSE IF POE_AR_NT_RF GT '0' THEN DL_RQ_CQY - DNG_CQY
ELSE 0;
FAC/I4 = DNG_CQY - BL_CQY;
HALLOW/D12C=IF (ORD_ALW_LC NE 0) AND (IVC_VL_NO EQ ' ')
THEN ORD_ALW_LC/(10*LI_CN) ELSE 0;
PALLOW/D12C=IF HALLOW EQ 0 THEN 0 ELSE IF (REC GT 0)
AND (POE_AR_NT_RF EQ ' ') THEN 0
ELSE HALLOW;
PTAS_PEN_REC/D12C=IF REC GT 0 THEN (IF HALLOW EQ 0
THEN NET_LC*REC/(DL_RQ_CQY*10)
ELSE IF POE_AR_NT_RF EQ ' '
THEN ORD_NET_LC/(10*LI_CN)) ELSE 0;
PTAS_PEN_ENT/D12C=IF ENT GT 0 THEN NET_LC*ENT/(DL_RQ_CQY*10) ELSE 0;
PTAS_PEN_FAC/D12C=IF FAC GT 0 THEN NET_LC*FAC/(DL_RQ_CQY*10) ELSE 0;
NETO/D12C=NET_LC*(DL_RQ_CQY-BL_CQY)/(DL_RQ_CQY*10);
SH_SC_CDTA/A6=IF REC GT 0 THEN EDIT(SH_SC_CDT,'$$999999') ELSE '0';
SH_SC_CDTV/I6YMD=EDIT(SH_SC_CDTA);
SH_SC_CDTW/A6DMY=CHGDAT('YMD','DMY',SH_SC_CDTA,SH_SC_CDTW);
SHEDULE2/I6DMY=EDIT(SH_SC_CDTW);
MES_DIA/A4 = EDIT(SH_SC_CDTW,'$$9999');
ANO/A2 = EDIT(MES_DIA ,'$$99');
MES/A2 = EDIT(MES_DIA, '99$$');
FECHA/A8 WITH DEC_NO = TODAY(FECHA);
FECHA1/A6 WITH DEC_NO = EDIT(FECHA,'99$99$99');
FECHA2/A6DMY WITH DEC_NO = CHGDAT('MDY','DMY',FECHA1,FECHA2);
FECHA4/A6YMD WITH DEC_NO =CHGDAT ('DMY','YMD',FECHA2,FECHA4);
FECHA5/I6DMY WITH DEC_NO = EDIT(FECHA4);
FECHA3/A4 WITH DEC_NO = EDIT (FECHA2,'$$9999');
ANO_HOY/A2 WITH DEC_NO = EDIT (FECHA3,'$$99');
MES_HOY/A2 WITH DEC_NO = EDIT (FECHA3,'99$$');
FECHA22/I8=JULDAT(FECHA5,FECHA22);
SHEDULE2/I8=JULDAT(SH_SC_CDTV,SHEDULE2);
FLAG/I6=FECHA22-SHEDULE2 ;
ACTUAL/D12C = IF FECHA3 EQ MES_DIA AND FLAG LT 0 AND REC GT 0
THEN PTAS_PEN_REC ELSE 0;
ANO_HOY1/I4 WITH DEC_NO= EDIT (ANO_HOY);
MES_HOY1/I4 WITH DEC_NO= EDIT (MES_HOY);
ANO1/I4 = EDIT (ANO);
MES1/I4 = EDIT (MES);
UNSHE/A6=IF ANO1 LT 75 THEN 'UNSHED' ELSE 'SCHEDU';
OVERDUE/D12C=IF FLAG GE 0 AND UNSHE EQ 'SCHEDU' THEN PTAS_PEN_REC ELSE 0;
DIFF/I4 = MES1 - MES_HOY1;
MES_DIF/I6=IF ANO_HOY EQ ANO AND FLAG LT 0 AND UNSHE NE 'UNSHE'
AND REC GT 0 THEN (MES1 - MES_HOY1) ELSE
IF ANO1 GT ANO_HOY1 AND FLAG LT 0 AND UNSHE NE 'UNSHE'
THEN (MES1+12 - MES_HOY1) ELSE 0;
ACTUAL_1/D12C = IF MES_DIF EQ 1 THEN PTAS_PEN_REC ELSE 0;
ACTUAL_2/D12C = IF MES_DIF EQ 2 THEN PTAS_PEN_REC ELSE 0;
ACTUAL_3/D12C = IF MES_DIF EQ 3 THEN PTAS_PEN_REC ELSE 0;
ACTUAL_4/D12C = IF MES_DIF GE 4 THEN PTAS_PEN_REC ELSE 0;
UNSCHE_1/D12C = IF UNSHE EQ 'UNSHED' THEN PTAS_PEN_REC ELSE 0;
UNI/A13= IF BKG_CTR1_CD EQ 'K9D' THEN 'JB5' ELSE
IF BKG_CTR1_CD EQ 'JVM' OR 'JVK' OR 'JVJ' THEN 'JAZ' ELSE
IF BKG_CTR1_CD EQ 'JVH' THEN 'JBN' ELSE
IF BKG_CTR1_CD EQ 'JVD' THEN 'JAX' ELSE
BKG_CTR1_CD;
UNIT/A13=IF UNI EQ 'JAU' OR 'JAV' THEN 'R.COROMINAS'
ELSE IF UNI EQ 'JAW' OR 'JAX' OR 'JAY'
THEN 'LUIS SOLE'
ELSE IF UNI EQ 'JAZ' OR 'JB0' OR 'JB1' OR 'JB2'
OR 'JB3' THEN 'G.SANZ'
ELSE IF UNI EQ 'JB4' THEN 'F.BERROETA'
ELSE IF UNI EQ 'JB5' OR 'JB6' OR 'JB7' OR 'JB8'
THEN 'A.RODRIGUEZ'
ELSE IF UNI EQ 'JB9' OR 'JBA' OR 'JBB' OR 'JBC'
OR 'JBD' OR 'JBE'
THEN 'E.MARTINEZ'
ELSE IF UNI EQ 'JBF' OR 'JBG' OR 'JBH' OR 'JBJ'
OR 'JBK' THEN 'J.MORENO'
ELSE IF UNI EQ 'JBL' OR 'JBM' OR 'JBN' OR 'JBP'
OR 'JBQ' THEN 'A.RUIZ'
ELSE 'ERROR';
END
TABLE FILE CC
": PEDIDOS EN BACKLOG RESUMEN (VALORES EN KPTAS) FECHA : <FECHA"
" SE EXCLUYEN TODO TIPO DE SERVICIOS
"************************************"
SUM
-* AS 'UNIT'
-*NETO AS 'BACK,TOTAL' IN +1
PTAS_PEN_REC AS 'PEND,FAB' IN +1
PTAS_PEN_ENT AS 'PEND,ALM' IN +1
PTAS_PEN_FAC AS 'PEND,SIM' IN +1
AND ROW-TOTAL
BY UNIT AS 'B.UNIT' SUBTOTAL
BY UNI AS 'UNIT'
BY AK_CUS_FN AS 'CLIENTE'
BY AK_CUS_NO AS 'AR#'
-*BY HALLOW AS 'HEADER,ALLOW,NO INCLUIDOS'
IF PART_RQ_CID NE 'AN-TICIP-O'
-*IF BKG_CD NE '001' OR '016' OR '031' OR '038' OR '055' OR '277' OR '279'
-* OR '099' OR '071' OR '037' OR '006' OR '088' OR '072' OR '073'
-* OR '074' OR '075' OR '015' OR '005' OR '022' OR '018' OR '021'
-* OR '004' OR '019' OR '278' OR '014' OR '020' OR '032' OR '023'
-* OR '070' OR '002' OR '003' OR '081' OR '721' OR '181' OR '722' OR '190'
-* OR '723' OR '191' OR '724' OR '089' OR '812' OR '813' OR '814' OR '921'
-* OR '999'
ON TABLE COLUMN-TOTAL
END
**************************************** *************************
we get : %FOCUS-F-INTERROR, FOCUS internal error
In the case that we limit the number of records (maximum limit we reached 2900)
the procedure works, that is: if we write; IF RECORDLIMIT EQ 2900 work , in
other hand; IF RECORDLIMIT EQ 3000 we get the error message.
It seems to be an internal limit between FOCUS image and VMS.
Do you know something about?
This procedure works fine in the previous FOCUS 5.2.3 version.
Details about database follows:
FILE=CC ,SUFFIX=FIX
SEGNAME=CC
FIELDNAME =AK_CUS_NO ,E01 ,A5 ,A08 ,$
FIELDNAME =CREDIT_RP ,E02 ,A3 ,A04 ,$
FIELDNAME =CREDIT_LIM ,E03 ,D13.2 ,D08 ,$
FIELDNAME =PENDIENTE ,E04 ,D13.2 ,D08 ,$
FIELDNAME =DL_RQ_CQY ,E05 ,I4 ,I04 ,$
FIELDNAME =POE_RC_CQY ,E06 ,I4 ,I04 ,$
FIELDNAME =BL_CQY ,E07 ,I4 ,I04 ,$
FIELDNAME =DNG_CQY ,E08 ,I4 ,I04 ,$
FIELDNAME =NET_LC ,E09 ,D13.2 ,D08 ,$
FIELDNAME =HLD_RSN_CD ,E10 ,A1 ,A04 ,$
FIELDNAME =POE_RC_LA_DT ,E11 ,I8YYMTD ,I04 ,$
FIELDNAME =AK_CUS_FN ,E12 ,A20 ,A20 ,$
FIELDNAME =DEC_NO ,E13 ,A9 ,A12 ,$
FIELDNAME =PART_RQ_CID ,E14 ,A11 ,A12 ,$
FIELDNAME =CAS_CTC_NM ,E15 ,A16 ,A16 ,$
FIELDNAME =SH_SC_CDT ,E16 ,I8YYMTD ,I04 ,$
FIELDNAME =ORD_SUP_CD ,E17 ,A2 ,A04 ,$
FIELDNAME =POE_AR_NT_RF ,E18 ,A6 ,A08 ,$
FIELDNAME =BKG_CD ,E19 ,A3 ,A04 ,$
FIELDNAME =ORD_ALW_LC ,E20 ,D13.2 ,D08 ,$
FIELDNAME =IVC_CN ,E21 ,I4 ,I04 ,$
FIELDNAME =IVC_VL_NO ,E22 ,A11 ,A12 ,$
FIELDNAME =ORD_NET_LC ,E23 ,D13.2 ,D08 ,$
FIELDNAME =LI_CN ,E24 ,I4 ,I04 ,$
FIELDNAME =BKG_CTR1_CD ,E25 ,A3 ,A04 ,$
FIELDNAME =DL_RQ_CDT_I ,E26 ,I8YYMTD ,I04 ,$
FIELDNAME =ORD_ALW_LC ,E27 ,D13.2 ,D08 ,$
FIELDNAME =CUS_PO_RF ,E28 ,A16 ,A16 ,$
FIELDNAME =LI_ID_NO ,E29 ,A3 ,A04 ,$
Database (RMS file ) contains 7152 records and is 3230 blocks large.
Thanks in advance
Guillermo Aos Finance Portfolio Responsible (Spain)
Fernando Lopez IS Specialist (Spain)
| T.R | Title | User | Personal
Name | Date | Lines
|
|---|