MODIFY FILE EMPLOYEE

CASE UPDATE_SAL
    MATCH EMP_ID
    ON MATCH UPDATE CURR_SAL
    ON NOMATCH REJECT
ENDCASE

DATA ON DDname
END

 
 SQL CREATE TABLE TABLE1 ( FIELD1 CHAR(20));
 END

 MODIFY FILE TABLE1
 MATCH FIELD1
 ON NOMATCH INCLUDE
 DATA
 'Test field value 1.',$
 'Test field value 2.',$
 'Test field value 3.',$
 'Test field value 4.',$
 END

 TABLE FILE TABLE1
 PRINT *
 END
 

MODIFY FILE EMPDETAILS
FIXFORM EMP_ID PHONE
MATCH EMP_ID
ON MATCH UPDATE PHONE
DATA
123 456-7890
124 456-7899
125 456-7898
.
.
.
.
END

MODIFY FILE EMPLOYEE
FIXFORM EMP_ID CURR_SAL
MATCH EMP_ID 
ON MATCH UPDATE CURR_SAL
ON NOMATCH INCLUDE
DATA
07138266020000
11284761250000
END
-RUN

TABLE FILE EMPLOYEE
PRINT CURR_SAL BY EMP_ID
END

MODIFY FILE EMPDETAILS
FIXFORM EMP_ID PHONE
MATCH EMP_ID 
ON MATCH UPDATE PHONE
ON NOMATCH INCLUDE
DATA ON PHONELIST
END

TABLE FILE <YOURTABLEHERE>
PRINT 
  Name
  AND COMPUTE Moble/A10 = '&MOBLENUM';
WHERE Emp# EQ '&EMPNUM';
ON TABLE HOLD AS HOLD1
END

MODIFY FILE <YOURTABLEHERE>
FIXFORM FROM HOLD1
MATCH Name
ON MATCH UPDATE Moble
ON NOMATCH REJECT
DATA ON HOLD1
END
 

Scott

quote:

Originally posted by Francis Mariani:
If it is that, then they've been saying it for a really long time...

Scott

The basic syntax for the COMBINE command is
COMBINE FILES file1 [PREFIX pref1|TAG tag1] [AND]
.
.
.
filen [PREFIX prefn|TAG tagn] AS asname
where:

file1 - filen
  Are the Master File names of the data sources you want to modify. You can specify up to 16 Master Files.

pref1 - prefn
  Are prefix strings for each file; up to four characters. They provide uniqueness for fieldnames. You cannot mix TAG and PREFIX in a COMBINE structure. Refer to the FOCUS for S/390 documentation for additional information.

tag1 - tagn
  Are aliases for the data source names; up to eight characters. FOCUS uses the tag name as a qualifier for fields that refer to that data source in the combined structure. You cannot mix TAG and PREFIX in a COMBINE, and you can only use TAG if FIELDNAME is set to NEW or NOTRUNC.

AND
  Is an optional word to enhance readability.

asname
  Is the required name of the combined structure to use in MODIFY procedures and CHECK FILE commands.

quote:

Originally posted by George Patton:
I see where Danny is going with this, so I'll let him post the solution.

I don't know if PROMPT is supported any more within the WebFocus MODIFY application. The old PC FOCUS "CRTFORM" which was used for data input/updating certainly is not.

But if you can produce a text list of user names and phone numbers that need to be updated, you don't need to go the PROMPT route and it becomes much easier.

MODIFY FILE EMPDETAILS
FIXFORM EMP_ID PHONE
MATCH EMP_ID
ON MATCH UPDATE PHONE
DATA
123 456-7890
124 456-7899
125 456-7898
.
.
.
.
END

Note - I left a space between the EMP_ID and the phone number. Normally with a FIXFORM (i.e. fixed format) data input string you wouldn't do that.

Below is a working example from the IBI sample databases that updates the salary. If the EMP_ID doesn't exist it will add the new record of for the employee and his salary.

Here I have changed the salary for the first two employees from $11,000 and $13,200 to $20,000 and $50,000 respectively.

MODIFY FILE EMPLOYEE
FIXFORM EMP_ID CURR_SAL
MATCH EMP_ID 
ON MATCH UPDATE CURR_SAL
ON NOMATCH INCLUDE
DATA
07138266020000
11284761250000
END
-RUN

TABLE FILE EMPLOYEE
PRINT CURR_SAL BY EMP_ID
END

If you create your list as a separate text file - let's call it PHONES.TXT, with two fields, EMP_ID and PHONE, then you need to FILEDEF that file (let's call it PHONELIST) and then in the MODIFY it becomes:

MODIFY FILE EMPDETAILS
FIXFORM EMP_ID PHONE
MATCH EMP_ID 
ON MATCH UPDATE PHONE
ON NOMATCH INCLUDE
DATA ON PHONELIST
END

MODIFY FILE EMPLOYEE
FIXFORM EMP_ID/9 EMPNAME/4 CURR_SAL/5
MATCH EMP_ID EMPNAME
ON MATCH UPDATE CURR_SAL
ON NOMATCH INCLUDE
DATA
071382660Kate20000
112847612John50000
END