[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference ilbbak::ibi_focus

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

512.0. "Startup problem with MODIFY statement" by ZUR01::WELTI () Wed May 06 1992 10:54

Hi,

until now I used FOCUS as a 'simple' report writer!

Today a few month later I'm forced (by myself) to
work with the MODIFY statement.
Although I have a manual I wasn't able to implement
the following simple need defined in pseudocode.


Any critical view into the following code would be apreciated 

   Heinz



wish in PSEUDO-CODE
********************

loop for all records
     if REQE_COMMAND EQ "TAKE REQUEST" then UPDATE 
          SGROUP:=LASTDGROUP;        (* overwrite *)
          QUE_SVC_FUNC:=LAST_DEST;   (* overwrite *)
      end if   
end loop

my first steps:
***************

FILEDEF  FLOW2 DISK FLOW2.FTM
FILEDEF HLIPRINT DISK HLIPRINT.ECHO
-*   just for echo

MODIFY FILE FLOW2 ECHO

FIXFORM FROM FLOW2

MATCH LOG_NO

ON NOMATCH REJECT
ON MATCH COMPUTE 
         SGROUP=IF REQE_COMMAND EQ 'TAKE REQUEST' THEN LASTDGROUP; 
         QUE_SVC_FUNC=IF REQE_COMMAND EQ 'TAKE REQUEST' THEN LAST_DEST;

ON MATCH UPDATE SGROUP 
ON MATCH UPDATE QUE_SVC_FUNC

DATA ON FLOW2
END

appendix:
*********

File: [email protected]

FILE=FLOW2,SUFFIX=FIX
SEGNAME=FLOW2
FIELDNAME=LOG_NO,E01,A5,A08,$
FIELDNAME=REQE_COMMAND,E02,A20,A20,$
FIELDNAME=LASTDGROUP,E03,A15,A16,$
FIELDNAME=LAST_DEST,E04,A1,A04,$
FIELDNAME=SGROUP,E05,A15,A16,$
FIELDNAME=QUE_SVC_FUNC,E06,A1,A04,$
FIELDNAME=DGROUP,E07,A15,A16,$
FIELDNAME=REQE_SDF_EVN,E08,A1,A04,$

example data File: FLOW2.FTM
08409CREATE REQUEST      G_MGMT         ZG_CRG_CD       LG_EXEP_MGMT    E
08409ROUTE REQUEST       G_EXEP_MGMT    EG_EXEP_MGMT    EG_DISP_FGL     D
08409ROUTE REQUEST       G_DISP_FGL     DG_DISP_FGL     DG_CLOSING_FGL  D
08409TAKE REQUEST        G_CLOSING_FGL  DNICE_GROUP     DNICE_GROUP     D
08409ROUTE REQUEST       NICE_GROUP     DNICE_GROUP     DG_CLOSING_FGL  D
08409TAKE REQUEST        G_CLOSING_FGL  DG_EXEP_MGMT    EG_EXEP_MGMT    E
08409ROUTE REQUEST       G_EXEP_MGMT    EG_EXEP_MGMT    EG_CLOSING_FGL  D
08409CLOSE REQUEST       G_CLOSING_FGL  DG_DISP_FGL     D               D
10150CREATE REQUEST      G_CLOSING_BCO  DG_CRG_BB       LG_EBO          D
10150TAKE REQUEST        G_EBO          DG_EBO          DG_EBO          D
10150ROUTE REQUEST       G_EBO          DG_EBO          DG_EBO          D
10150ROUTE REQUEST       G_EBO          DG_EBO          DG_CLOSING_EBO  D
10150TAKE REQUEST        G_CLOSING_EBO  DG_EBO          DG_EBO          D
10150ROUTE REQUEST       G_EBO          DG_EBO          DG_CLOSING_EBO  D
10150CLOSE REQUEST       G_CLOSING_EBO  DG_CLOSING_EBO  D               D

T.R	Title	User	Date	Lines
512.1	Can't MODIFY Sequential Files	SHIPS::CARSE_D	`Thu May 07 1992 11:18`	17
	Heinz, Sorry, but you can't update sequential files with MODIFY. MODIFY is used for updating FOCUS databases, and other database products (e.g. Rdb/VMS, Ingres, Sybase, etc) if you have the appropriate licence. You can achieve the results you want by TABLE-ing your sequential file and adding a couple of DEFINE or COMPUTE statements to create fields with the required values in. Hope this helps, David
512.2	thanks	ZUR01::WELTI	`Thu May 07 1992 12:19`	4
	Thanks I can live with the workaround. Heinz