| 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 |
I have a command procedure that runs several fexes, which read several RMS
files and loads them into one Parts.foc file. The master file
description for the parts.foc has a dynamic and static cross references
to another focus file called STACCT. On occasion, when the rms files
are being loaded into the parts.foc file I get the following error:
(FOC422) Focus file is not writable, can't modify: STACCT
I never actually modify the stacct, the only reference to the STACCT
file is the dynamic and static cross reference to it. The error occurs
when I say modify file parts. Usually if the job is rerun it works
fine. Does anybody have any ideas what may be causing this error?
We are at 5.2.3 of Focus and we just upgraded VMS to 5.4, which is also
when this problem started to appear.
The cross reference to stacct looks like this:
SEGNAME=STRACCT, SEGTYPE=DKU, PARENT SRACCT, CRFILE=STACCT, CRKEY=SR,
CRESEGNAME=STRACCT,$
Any help would really be appreciated.
Regards,
Yvonne Breen
| T.R | Title | User | Personal Name | Date | Lines |
|---|---|---|---|---|---|
| 516.1 | MATE::JBAMFORTH | Mon Jun 01 1992 13:58 | 6 | ||
Yvonne,
Provide the code and masters. I'll take a look for you.
Joe
| |||||
| 516.2 | PartsII_load.com | WMOIS::BREEN_Y | Mon Jun 01 1992 15:52 | 441 | |
Joe,
Below is the com file that loads the SRRCS file into the already
existing Parts.foc file. Parts.foc file was created using a similiar
command stream that loaded five other files into it, but this is
the one that giving me the grief.
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!!! !!!!
$!!! PARTSII_LOAD.COM - FOCUS BATCH Database Creation Routine !!!!
$!!! !!!!
$!!! - N I G H T L Y !!!!
$!!! !!!!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$!
$! This is a BATCH job, it may run in BATCH mode only.
$!
$ If F$Mode() .EQS. "BATCH" Then Goto STEP_000
$!
$ BELL[0,32] = 7
$ Write Sys$Output BELL,BELL,BELL,BELL,BELL
$ Write Sys$Output BELL,BELL,BELL,BELL,BELL
$ Write Sys$Output "This job must run in batch mode only."
$ Write Sys$Output BELL,BELL,BELL,BELL,BELL
$ Write Sys$Output BELL,BELL,BELL,BELL,BELL
$ Exit 4
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$! PARTSII_LOAD.COM - FOCUS BATCH Database Creation Routine
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$! Decsription: This job loads the PARTS data file in the FOCUS Prototype
$! ------------ database. This job should be run nighlty.
$!
$! Job Frequency: Nightly Job Re-startability: Restartable.
$! -------------- --------------------
$!
$! Job Dependency: MAXCIM Backups complete.
$! ---------------
$!
$! Job criticality: CRITICAL. MUST be run each night.
$! ----------------
$!
$! Tape Usage/Disposition: None.
$! -----------------------
$!
$! Special Forms/Forms Set-up: None.
$! ---------------------------
$!
$! Error Recovery: If the stream fails, restart from the beginning.
$!
$! Special Considerations: See above.
$! -----------------------
$!
$! Revision History:
$! -----------------
$! Date Rev# Author Description of Revision
$! --------- ---- ------ -----------------------
$! Sept-1987 1.0 Bob Huhtala New program
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!!!! !!!!
$!!!! STEP_000 - STREAM INITIALIZATION !!!!
$!!!! !!!!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$ STEP_000:
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$!
$! VARIABLES REQUIRED FOR AUTOMATED JOB SCHEDULE
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$
$ STREAM_NAME == "PARTSII_LOAD"
$ STEP_NAME == "STEP_000"
$ RESTARTABLE == "Y"
$ RESTART_STEP == "STEP_010"
$ STREAM_STATUS == "RUNNING"
$! SET RESTART_VALUE = STEP_000
$ @MDS$DBA$COM:MESSAGE
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$! Create and assign a temporary directory for each FOCUS LOAD stream
$! to be used by FOCUS for its temporary files
$! The disk to create a temporary directory and perform the focus
$! load to is determined by which disk the focus master file exists
$!
$ WRITE SYS$OUTPUT "THIS STREAM IS RUNNING ON: ''F$GETSY("NODENAME")'"
$ FOC_CHECKLOG :="$MDS$DBA$EXE:FOC_CHECKLOG.EXE"
$ ASSIGN/NOLOG MDS$DBA1$TMP$ROOT:['STREAM_NAME] TEMP$DIR
$ CREATE/DIRECTORY/NOLOG TEMP$DIR
$ DB_FILE = F$SEARCH("MDS$DBA$DBS:PARTS.FOC")
$ IF DB_FILE .EQS. "" THEN -
ASSIGN MDS$DBA$WRK: FOCUSFIL
$ IF DB_FILE .EQS. "" THEN -
ASSIGN MDS$DBA$WRK:PARTS.FOC CREATFIL
$ IF DB_FILE .EQS. "" THEN -
ASSIGN MDS$DBA$WRK FOC$DIR1
$ IF DB_FILE .NES. "" THEN -
ASSIGN 'F$EXTRACT(0,F$LOCATE(":",DB_FILE) + 1,DB_FILE)[WORK_FILES] FOCUSFIL
$ IF DB_FILE .NES. "" THEN -
ASSIGN 'F$EXTRACT(0,F$LOCATE(":",DB_FILE) + 1,DB_FILE)[WORK_FILES].FOC CREATFIL
$ IF DB_FILE .NES. "" THEN -
ASSIGN 'F$EXTRACT(0,F$LOCATE(":",DB_FILE) + 1,DB_FILE)[WORK_FILES] FOC$DIR1
$ ASSIGN MDS$DBA$FIL FOC$DIR3
$!
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!!!! !!!!
$!!!! STEP 010 - SRRCS.NCA LOAD !!!!
$!!!! !!!!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$ STEP_010:
$!
$! PARTSII_LOAD.COM - STEP_010 - (MDS$DBA$WRK:LDLRCS)
$! -----------------------------------------------------
$!
$! Description: This step will load SRRCS.NCA data into the PARTS data file
$! ------------ in the FOCUS database. This step does the following
$! o create command stream to execute focus
$! o redirect log to be read latter
$! o execute command stream
$! o read log file to check for focus errors
$! o on error abort
$! o clean-up log files
$!
$!
$! Files: Input Output
$! ----- ------
$! MDS$DBA$EXT:SRRCS.NCA MDS$DBA$WRK:PARTS.FOC
$!
$! Tape Usage: None.
$! -----------
$!
$! Error Recovery:
$! ---------------
$!
$! Special Considerations: None.
$! -----------------------
$!
$! Special Resources: None.
$! ------------------
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$
$! STREAM_NAME == defined from above
$ STEP_NAME == "STEP_010"
$ RESTARTABLE == "Y"
$ RESTART_STEP == "STEP_010"
$ STREAM_STATUS == "RUNNING"
$ SET RESTART_VALUE = STEP_010
$ @MDS$DBA$COM:MESSAGE
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$ On Warning then goto Stream_failure
$!
$!-
$! Directory of input files.
$!
$ Directory/Size=All/Date=All/Protection/Owner MDS$DBA$EXT:SRRCS.NCA
$!
$!
$!+ Create the substream command file for this step.
$!
$ SUBSTREAM_LOG_NAME = STREAM_NAME + "_" + STEP_NAME + ".LOG"
$ SUBSTREAM_COM_NAME = STREAM_NAME + "_" + STEP_NAME + ".COM"
$!
$ Copy/Log MDS$DBA$COM:TEMPLATE.COM 'SUBSTREAM_COM_NAME'
$!
$ Open/Append SUBSTREAM 'SUBSTREAM_COM_NAME'
$!
$ Write SUBSTREAM "$ WHERE_IS_FILE = F$SEARCH(""MDS$DBA$EXT:SRRCS.NCA"")"
$ Write SUBSTREAM "$ ASSIGN 'WHERE_IS_FILE DATA_IN"
$ Write SUBSTREAM "$ ASSIGN MDS$DBA$RPT:SRRCS.rej REJ_OUT"
$ Write SUBSTREAM "$ ASSIGN MDS$DBA$RPT:SRRCS.dup DUP_OUT"
$ Write SUBSTREAM "$ ASSIGN MDS$DBA$RPT:SRRCS.rpt LOAD_RPT"
$ Write SUBSTREAM "$ SET DEFAULT TEMP$DIR"
$ Write SUBSTREAM "$ SET RMS_DEFAULT/BLOCK_COUNT=127"
$ Write SUBSTREAM "$ FOCUS"
$ Write SUBSTREAM "EX mds$dba$exe:SET_PASS"
$ Write SUBSTREAM "EX mds$dba$exe:LDSRRCS"
$ Write SUBSTREAM "FIN"
$ Write SUBSTREAM "$ SET DEFAULT SYS$LOGIN"
$ Write SUBSTREAM "$ Exit 1" !Exit successfully.
$!
$ Close SUBSTREAM
$!-
$!
$!
$!+ Execute the substream command file.
$!
$ Define/NoLog Sys$Output 'SUBSTREAM_LOG_NAME'
$!
$ Define/NoLog Sys$Error 'SUBSTREAM_LOG_NAME'
$!
$ @'SUBSTREAM_COM_NAME'
$!
$ Deassign Sys$Output
$!
$ Deassign Sys$Error
$!-
$!
$! Directory of output files.
$!
$ Directory/Size=All/Date=All/Protection/Owner MDS$DBA$WRK:PARTS.FOC
$!
$!
$! Type the substream log so that it will appear in the main log.
$!
$ Type 'SUBSTREAM_LOG_NAME'
$!
$!
$!+ Check the substream log for errors.
$!
$ Set NoOn
$!
$ FOC_CHECKLOG 'SUBSTREAM_LOG_NAME'
$ On Warning then goto Stream_failure
$ If $STREAM_FAULT .nes. "SUCCESS" Then Goto STREAM_FAILURE
$!-
$!
$!
$!+ Clean up after step success.
$!
$ SUBSTREAM_FULL_COM = SUBSTREAM_COM_NAME + ";*"
$ IF F$SEARCH(SUBSTREAM_FULL_COM) .NES. "" THEN -
Delete 'SUBSTREAM_FULL_COM'/LOG
$!
$ SUBSTREAM_FULL_LOG = SUBSTREAM_LOG_NAME + ";*"
$ IF F$SEARCH(SUBSTREAM_FULL_LOG) .NES. "" THEN -
Delete 'SUBSTREAM_FULL_LOG'/LOG
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!!!! !!!!
$!!!! STEP 020 - PARTS INDEX REBUILD !!!!
$!!!! !!!!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$ STEP_020:
$!
$! PARTSII_LOAD.COM - STEP_020 - PARTS REBUILD
$! -------------------------------------------------
$!
$! Description: This step will rebuild the PARTS.FOC file into an INDEXED
$! ------------ file.
$!$! o create command stream to execute focus
$! o redirect log to be read latter
$! o execute command stream
$! o read log file to check for focus errors
$! o on error abort
$! o clean-up log files
$!
$! Files: Input Output
$! ----- ------
$! MDS$DBA$WRK:PARTS.FOC MDS$DBA$WRK:PARTS.FOC
$!
$! Tape Usage: None.
$! -----------
$!
$! Error Recovery:
$! ---------------
$!
$! Special Considerations: None.
$! -----------------------
$!
$! Special Resources: None.
$! ------------------
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$
$! STREAM_NAME == defined from above
$ STEP_NAME == "STEP_020"
$ RESTARTABLE == "Y"
$ RESTART_STEP == "STEP_010"
$ STREAM_STATUS == "RUNNING"
$ SET RESTART_VALUE = STEP_010
$ @MDS$DBA$COM:MESSAGE
$!
$ Directory/Size=All/Date=All/Protection/Owner MDS$DBA$WRK:PARTS.FOC
$!
$!
$!+ Create the substream command file for this step.
$!
$ SUBSTREAM_LOG_NAME = STREAM_NAME + "_" + STEP_NAME + ".LOG"
$ SUBSTREAM_COM_NAME = STREAM_NAME + "_" + STEP_NAME + ".COM"
$!
$ Copy/Log MDS$DBA$COM:TEMPLATE.COM 'SUBSTREAM_COM_NAME'
$!
$ Open/Append SUBSTREAM 'SUBSTREAM_COM_NAME'
$!
$ Write SUBSTREAM "$ SHOW PROC/ACCOUNT"
$ Write SUBSTREAM "$ SET NOON"
$! Write SUBSTREAM "$ COPY MDS$DBA$WRK:PARTS.FOC FOCUS3:[PROTODATA.BACKUP]"
$! CURRENTLY WE DO NOT HAVE ENOUGH SPACE TO PERFORM THIS STEP
$ Write SUBSTREAM "$ SET DEFAULT TEMP$DIR"
$ Write SUBSTREAM "$ SHOW DEFAULT"
$ Write SUBSTREAM "$ FOCUS"
$ Write SUBSTREAM "EX mds$dba$exe:SET_PASS"
$ Write SUBSTREAM "SET DEFAULT = FOC$DIR1"
$ Write SUBSTREAM "REBUILD"
$ Write SUBSTREAM "INDEX"
$ Write SUBSTREAM "PARTS"
$ Write SUBSTREAM "*"
$ Write SUBSTREAM "FIN"
$! Write SUBSTREAM "$ SET FILE/PROTECTION=W:RE MDS$DBA$WRK:PARTS.FOC"
$ Write SUBSTREAM "$ SET DEFAULT SYS$LOGIN"
$ Write SUBSTREAM "$ SHOW DEFAULT"
$ Write SUBSTREAM "$ Exit 1" !Exit successfully.
$!
$ Close SUBSTREAM
$!
$!+ Execute the substream command file.
$!
$ Define/NoLog Sys$Output 'SUBSTREAM_LOG_NAME'
$!
$ Define/NoLog Sys$Error 'SUBSTREAM_LOG_NAME'
$!
$ @'SUBSTREAM_COM_NAME'
$!
$ Deassign Sys$Output
$!
$ Deassign Sys$Error
$!-
$!
$! Directory of output files.
$!
$ Directory/Size=All/Date=All/Protection/Owner MDS$DBA$WRK:PARTS.FOC
$!
$!
$! Type the substream log so that it will appear in the main log.
$!
$ Type 'SUBSTREAM_LOG_NAME'
$!
$!
$!+ Check the substream log for errors.
$!
$ Set NoOn
$!
$ FOC_CHECKLOG 'SUBSTREAM_LOG_NAME'
$ On Warning then goto Stream_failure
$ If $STREAM_FAULT .nes. "SUCCESS" Then Goto STREAM_FAILURE
$!-
$!
$!+ Clean up after step success.
$!
$ SUBSTREAM_FULL_COM = SUBSTREAM_COM_NAME + ";*"
$ IF F$SEARCH(SUBSTREAM_FULL_COM) .NES. "" THEN -
Delete 'SUBSTREAM_FULL_COM'/LOG
$!
$ SUBSTREAM_FULL_LOG = SUBSTREAM_LOG_NAME + ";*"
$ IF F$SEARCH(SUBSTREAM_FULL_LOG) .NES. "" THEN -
Delete 'SUBSTREAM_FULL_LOG'/LOG
$!
$ Goto STREAM_SUCCESS
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$ STREAM_FAILURE:
$!$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$!
$! VARIABLES REQUIRED FOR AUTOMATED JOB SCHEDULE
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$
$ STREAM_NAME == "PARTSII_LOAD"
$! STEP_NAME == defined in failed step
$! RESTARTABLE == defined in failed step
$! RESTART_STEP == defined in failed step
$ STREAM_STATUS == "FAILED"
$! SET RESTART_VALUE =
$ @MDS$DBA$COM:MESSAGE
$ exit 4
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$ STREAM_SUCCESS:
$!
$!
$! Delete source extract files from MDS$DBA$EXT area
$!
$ IF F$SEARCH("MDS$DBA$EXT:INPMS.NCA") .NES. "" THEN -
DELETE/LOG/NOCONFIRM MDS$DBA$EXT:INPMS.NCA;*
$ IF F$SEARCH("MDS$DBA$EXT:INCMS.NCA") .NES. "" THEN -
DELETE/LOG/NOCONFIRM MDS$DBA$EXT:INCMS.NCA;*
$ IF F$SEARCH("MDS$DBA$EXT:INSSS.NCA") .NES. "" THEN -
DELETE/LOG/NOCONFIRM MDS$DBA$EXT:INSSS.NCA;*
$ IF F$SEARCH("MDS$DBA$EXT:SRRCS.NCA") .NES. "" THEN -
DELETE/LOG/NOCONFIRM MDS$DBA$EXT:SRRCS.NCA;*
$ IF F$SEARCH("MDS$DBA$EXT:BMCWS.NCA") .NES. "" THEN -
DELETE/LOG/NOCONFIRM MDS$DBA$EXT:BMCWS.NCA;*
$!
$!
$! Delete focstack.ftm and sortout.ftm files from temp$dir area
$!
$ IF F$SEARCH("TEMP$DIR:FOCSTACK.FTM") .NES. "" THEN -
DELETE/LOG/NOCONFIRM TEMP$DIR:FOCSTACK.FTM;
$ IF F$SEARCH("TEMP$DIR:SORTOUT.FTM") .NES. "" THEN -
DELETE/LOG/NOCONFIRM TEMP$DIR:SORTOUT.FTM;
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$!
$! VARIABLES REQUIRED FOR AUTOMATED JOB SCHEDULE
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$
$! STREAM_NAME == defined from above
$! STEP_NAME == not needed
$! RESTARTABLE == not needed
$! RESTART_STEP == not needed
$ STREAM_STATUS == "COMPLETE"
$! SET RESTART_VALUE =
$ @MDS$DBA$COM:MESSAGE
$ Exit 1
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
| |||||
| 516.3 | Master file description | WMOIS::BREEN_Y | Mon Jun 01 1992 15:54 | 328 | |
This is the master file description for the Parts.foc file. The index
for the stacct is noted at the bottom.
$-------------------------------------------------------------------
$ |
$ |
$ |
$ FOCUS MASTER FILE DESCRIPTION |
$ |
$ FILE: PARTS.FOC - MASTER PARTS FILE |
$ |
$ INPUTS: INPMS.NCA |
$ INCMS.NCA |
$ INSSS.NCA |
$ SRRCS.NCA |
$ BMCWS.NCA |
$ |
$-------------------------------------------------------------------
$ |
$ MODIFICATION HISTORY |
$ |
$ DATE | NAME | DESCRIPTION |
$----------|------------------|-------------------------------------
$ 03/09/88 DRW ADDED THE ZZLRCS FILE TO THE PARTS |
$ FILE |
$ 07/19/88 DRW ADDED THE ZZBCWS FILE TO THE PARTS |
$ FILE |
$ 09/20/91 RTM ADDED THE OPER_SYS FIELD FROM THE |
$ INPMS FILE (#21) |
$ 04/02/92 RTM ADDED THE PRDCTN_LINE FIELD FROM |
$ THE INPMS FILE (#35) |
$-------------------------------------------------------------------
FILENAME=PARTS,SUFFIX=FOC,$
SEGNAME=PARTS, SEGTYPE=S1 ,$
FIELDNAME=PART ,ALIAS=PT_PART ,FORMAT=A16, FIELDTYPE=I,
TITLE='PART NUMBER',$
$ DESC=IPMS01 PART NUMBER,
FIELDNAME=BUYER_CODE ,ALIAS=BUYER ,FORMAT=A4,
TITLE='BUYER',$
$ DESC=IPMS20 BUYER CODE,
FIELDNAME=FCST_USE_TY ,ALIAS=PT_FCST_USE ,FORMAT=A1,
TITLE='FC,USE,TY' ,$
$ DESC=IPMS10 ABC CODE,
FIELDNAME=MC_RESP_CODE,ALIAS=PT_MC_RESP ,FORMAT=A2,
TITLE='MC,RESP,CODE',$
$ DESC=IPMS19 MATL. CNTRL. RESP,
FIELDNAME=PBU_CD ,ALIAS=PBU_CD ,FORMAT=A4,
TITLE='PRODUCT,REF',$
$ DESC=IPMS37 PBU CODE,
FIELDNAME=PC_PLNR ,ALIAS=PT_PC_PLNR ,FORMAT=A2,
TITLE='PC,PLNR' ,$
$ DESC=IPMS18 PROD.CNTRL.RESP.,
FIELDNAME=PLNG_CD ,ALIAS=PT_PLNG_CD ,FORMAT=A1,
TITLE='PLNG,CD',$
$ DESC=IPMS11 PLANNING CODE,
FIELDNAME=PROD_CD ,ALIAS=PT_PROD_CD ,FORMAT=A10,
TITLE='PROD,CD ',$
$ DESC=IPMS05 PRODUCT CODE,
FIELDNAME=SRC_CD ,ALIAS=PT_SRC_CD ,FORMAT=A1,
TITLE='SRC,CD' ,$
$ DESC=IPMSO7 SOURCE CODE,
SEGNAME=PARTDTL, SEGTYPE=U, PARENT=PARTS ,$
FIELDNAME=DRAW_RVSN ,ALIAS=DRAW_RVSN ,FORMAT=A5,
TITLE='ENG,DRAW,REV' ,$
$ DESC=IPMS02 EDIT REV. CODE,
FIELDNAME=ACM_LBR_CST ,ALIAS=ACM_LBR_CST ,FORMAT=D13.6 ,
TITLE='ACTUAL,CUM LBR,COST',$
$ DESC=BCWS10 LABOR COST(CUM.),
FIELDNAME=ACM_LBR_HRS ,ALIAS=ACM_LBR_HRS ,FORMAT=D13.7 ,
TITLE='ACTUAL,CUM LBR,HRS' ,$
$ DESC=BCWS09 LABOR HOURS(CUM.),
FIELDNAME=ACM_MTAC_CST,ALIAS=ACM_MTAC_CST ,FORMAT=D13.6 ,
TITLE='ACTUAL,CUM MTRL ACQ,COST',$
$ DESC=BCWS13 MATL BURDEN(CUM.),
FIELDNAME=ACM_MTRL_CST,ALIAS=ACM_MTRL_CST ,FORMAT=D13.6 ,
TITLE='ACTUAL,CUM MTRL,COST',$
$ DESC=BCWS12 MATL COST(CUM.),
FIELDNAME=ACM_OVHD_CST,ALIAS=ACM_OVHD_CST ,FORMAT=D13.6 ,
TITLE='ACTUAL,CUM OVRHD,COST',$
$ DESC=BCWS11 LABOR BURDEN(CUM.),
FIELDNAME=ACM_VNDR_CST,ALIAS=ACM_VNDR_CST ,FORMAT=D13.6 ,
TITLE='ACTUAL,CUM VENDR,COST',$
$ DESC=BCWS14 VENDOR COST(CUM.),
FIELDNAME=ACT_CD ,ALIAS=PT_ACT_CD ,FORMAT=A1,
TITLE='ACT,CD' ,$
$ DESC=IPMS08 TYPE CODE,
FIELDNAME=ACT_EFCTV_DT,ALIAS=ACT_EFCTV_DT ,FORMAT=I6 ,
TITLE='ACTUAL,EFFECT, USED DT' ,$
$ DESC=BCWS17 EFFECTIVITY USED DATE,
FIELDNAME=ACT_LBR_CST ,ALIAS=ACT_LBR_CST ,FORMAT=D13.6 ,
TITLE='ACTUAL,LVL LBR,COST',$
$ DESC=BCWS04 LABOR COST(ADDED),
FIELDNAME=ACT_LBR_HRS ,ALIAS=ACT_LBR_HRS ,FORMAT=D13.7 ,
TITLE='ACTUAL,LVL LBR,HRS' ,$
$ DESC=BCWS03 LABOR HOURS(ADDED),
FIELDNAME=ACT_LROLL_DT,ALIAS=ACT_LROLL_DT ,FORMAT=I6 ,
TITLE='ACTUAL,LAST, ROLL DT' ,$
$ DESC=BCWS16 LAST ROLLUP DATE,
FIELDNAME=ACT_MTAC_CST,ALIAS=ACT_MTAC_CST ,FORMAT=D13.6 ,
TITLE='ACTUAL,LVL MTRL ACQ,COST',$
$ DESC=BCWS07 MATL BURDEN(ADDED),
FIELDNAME=ACT_MTRL_CST,ALIAS=ACT_MTRL_CST ,FORMAT=D13.6 ,
TITLE='ACTUAL,LVL MTRL,COST',$
$ DESC=BCWS06 MATL COST(ADDED),
FIELDNAME=ACT_OVHD_CST,ALIAS=ACT_OVHD_CST ,FORMAT=D13.6 ,
TITLE='ACTUAL,LVL OVRHD,COST',$
$ DESC=BCWS05 LABOR BURDEN(ADDED),
FIELDNAME=ACT_UPD_DT,ALIAS=ACT_UPD_DT ,FORMAT=I6 ,
TITLE='ACTUAL,LAST, MAINT DT' ,$
$ DESC=BCWS18 DATE LAST MAINT.
FIELDNAME=ACT_VNDR_CST,ALIAS=ACT_VNDR_CST ,FORMAT=D13.6 ,
TITLE='ACTUAL,LVL VENDR,COST',$
$ DESC=BCWS08 VENDOR COST (CUM.)
FIELDNAME=ACTL_COST ,ALIAS=ACTL_COST ,FORMAT=D15.6 ,
TITLE='ACTUAL UNIT,COST' ,$
$ DESC=BCWS15 STD. UNIT COST,
FIELDNAME=ADD_DT ,ALIAS=IPMS_ADD_DT ,FORMAT=I6,
TITLE='IPMS,ADD DT' ,$
$ DESC=IPMS33 DATE ADDED,
FIELDNAME=CMDTY_CD ,ALIAS=PT_CMDTY_CD ,FORMAT=A4,
TITLE='CMDTY,CODE' ,$
$ DESC=IPMS06 COMMODITY CODE,
FIELDNAME=CUM_LBR_CST ,ALIAS=PT_C_LBRCST ,FORMAT=D13.6 ,
TITLE='CUM LBR,COST',$
$ DESC=ICMS10 LABOR COST(CUM.),
FIELDNAME=CUM_LBR_HRS ,ALIAS=PT_C_LBRHRS ,FORMAT=D13.7 ,
TITLE='CUM LBR,HRS' ,$
$ DESC=ICMS09 LABOR HOURS(CUM.),
FIELDNAME=CUM_MTAC_CST,ALIAS=PT_C_MTACCST ,FORMAT=D13.6 ,
TITLE='CUM,MTRL ACQ,COST',$
$ DESC=ICMS13 MATL BURDEN(CUM.),
FIELDNAME=CUM_MTRL_CST,ALIAS=PT_C_MTRLCST ,FORMAT=D13.6 ,
TITLE='CUM MTRL,COST',$
$ DESC=ICMS12 MATL COST(CUM.),
FIELDNAME=CUM_OVHD_CST,ALIAS=PT_C_OVHDCST ,FORMAT=D13.6 ,
TITLE='CUM OVRHD,COST',$
$ DESC=ICMS11 LABOR BURDEN(CUM.),
FIELDNAME=CUM_VNDR_CST,ALIAS=PT_C_VNDRCST ,FORMAT=D13.6 ,
TITLE='CUM VENDR,COST',$
$ DESC=ICMS14 VENDOR COST(CUM.),
FIELDNAME=DESC ,ALIAS=PT_DESC ,FORMAT=A35,
TITLE='PART DESCRIPTION' ,$
$ DESC=IPMS03 DESCRIPTION,
FIELDNAME=DMD_IN ,ALIAS=PT_DMD_IN ,FORMAT=A1,
TITLE='DMD,IN' ,$
$ DESC=IPMS09 SPARES CODE,
FIELDNAME=ECO_EFDT ,ALIAS=PT_ECO_EFDT ,FORMAT=I6,
TITLE='ECO,EFDT',$
$ DESC=IPMS22 ENG. CHANGE DATE,
FIELDNAME=ECO_ID ,ALIAS=PT_ECO_ID ,FORMAT=A4,
TITLE='ECO,ID' ,$
$ DESC=IPMS23 ENG. CHANGE NO.,
FIELDNAME=ECO_PEND_IN ,ALIAS=PT_ECO_PEND ,FORMAT=A1,
TITLE='ECO,PND,IN' ,$
$ DESC=IPMS25 PENDING FLAG,
FIELDNAME=GROSS_REQ ,ALIAS=PT_GROSS_REQ ,FORMAT=D11.2 ,
TITLE='TOTL,GROSS,REQMTS',$
$ DESC=IPMS12 FORECASTED USAGE,
FIELDNAME=LOT_SIZE ,ALIAS=PT_LOT_SIZE ,FORMAT=D9.2,
TITLE='LOT,SIZE' ,$
$ DESC=IPMS13 ORDER QTY(LOT SIZE),
FIELDNAME=LST_PO_DT ,ALIAS=PT_LSTPO_DT ,FORMAT=I6 ,
TITLE='LAST, PO DT' ,$
$ DESC=ICMS19 LAST PURCHASE DATE,
FIELDNAME=LST_PO_PRC ,ALIAS=PT_LSTPO_PRC ,FORMAT=D15.6 ,
TITLE='LAST PO,PRC' ,$
$ DESC=ICMS18 LAST PURCHASE PRICE,
FIELDNAME=LST_PO_QTY ,ALIAS=PT_LSTPO_QTY ,FORMAT=D11.2 ,
TITLE='LAST, PO QTY',$
$ DESC=ICMS20 LAST PURCHASE QTY,
FIELDNAME=LVL_LBR_CST ,ALIAS=PT_L_LBRCST ,FORMAT=D13.6 ,
TITLE='LVL LBR,COST',$
$ DESC=ICMS04 LABOR COST(ADDED),
FIELDNAME=LVL_LBR_HRS ,ALIAS=PT_L_LBRHRS ,FORMAT=D13.7 ,
TITLE='LVL LBR,HRS' ,$
$ DESC=ICMS03 LABOR HOURS(ADDED),
FIELDNAME=LVL_MTRL_CST,ALIAS=PT_L_MTRLCST ,FORMAT=D13.6 ,
TITLE='LVL MTRL,COST',$
$ DESC=ICMS06 MATL COST(ADDED),
FIELDNAME=LVL_MTAC_CST,ALIAS=PT_L_MTACCST ,FORMAT=D13.6 ,
TITLE='LVL,MTRL ACQ,COST',$
$ DESC=ICMS07 MATL BURDEN(ADDED),
FIELDNAME=LVL_OVHD_CST,ALIAS=PT_L_OVHDCST ,FORMAT=D13.6 ,
TITLE='LVL OVRHD,COST' ,$
$ DESC=ICMS05 LABOR BURDEN(ADDED),
FIELDNAME=LVL_VNDR_CST,ALIAS=PT_L_VNDRCST ,FORMAT=D13.6 ,
TITLE='LVL VENDR,COST',$
$ DESC=ICMS08 VENDOR COST(ADDED),
$ DESC=BCWS08 VENDOR COST(ADDED),
FIELDNAME=MFG_LT ,ALIAS=PT_MFG_LT ,FORMAT=I3,
TITLE='MFG,LT' ,$
$ DESC=IPMS15 MANUF. LEAD TIME,
FIELDNAME=OPER_SYS ,ALIAS=OP_SYS ,FORMAT=A1 ,
TITLE='OPER,SYS' ,$
$ DESC=IPMS21 OPERATING SYSTEM,
FIELDNAME=PART_MLP ,ALIAS=PT_PART_MLP ,FORMAT=D13.3 ,
TITLE='PART MLP' ,$
$ DESC=ICMS02 SELLING PRICE,
FIELDNAME=PUR_LT ,ALIAS=PT_PUR_LT ,FORMAT=I3,
TITLE='PUR,LT' ,$
$ DESC=IPMS14 PURCHASE LEAD TIME,
FIELDNAME=STD_UNIT_CST,ALIAS=PT_STDUN_CST ,FORMAT=D15.6 ,
TITLE='STD UNIT,COST' ,$
$ DESC=ICMS15 STD. UNIT COST,
FIELDNAME=SUB_PART ,ALIAS=PT_SUB_PART ,FORMAT=A16,
TITLE='SUBST,PART NUMBER',$
$ DESC=IPMS24 SUBSTITUTE PART NUMBER,
FIELDNAME=TAX_RATE ,ALIAS=PT_TAX_RATE ,FORMAT=A1 ,
TITLE='TAX,RTE' ,$
$ DESC=ICMS21 TAX TYPE,
FIELDNAME=UOM ,ALIAS=PT_UOM ,FORMAT=A2,
TITLE='UOM' ,$
$ DESC=IPMS04 UNIT OF MEASURE,
FIELDNAME=XPC_LOSS_PCT,ALIAS=PT_XPC_LOSS ,FORMAT=I2,
TITLE='XPC,LOSS,PCT',$
$ DESC=IPMS17 SHRINKAGE FACTOR,
FIELDNAME=YLD_PCT ,ALIAS=PT_YLD_PCT ,FORMAT=D5.1,
TITLE='YLD,PERCT' ,$
$ DESC=IPMS16 YIELD PERCENT,
FIELDNAME=LOW_LEVEL_CD ,ALIAS=LOW_LEVEL_CD ,FORMAT=A3,
TITLE='LOW LEVEL CD' ,$
$ DESC=IPMS16 LOW LEVEL CODE,
FIELDNAME=PRDCTN_LINE ,ALIAS=PRD_LINE ,FORMAT=A2,
TITLE='PRDCTN,LINE' ,$
$ DESC=IPMS35 PRODUCTION LINE,
SEGNAME=SRACCT, SEGTYPE=S1 ,PARENT=PARTS,$
FIELDNAME=SR ,ALIAS=ST_SR ,FORMAT=A8, FIELDTYPE=I,
TITLE='STKRM ID' ,$
$ DESC=INSSS02 STORES ACCOUNT,
SEGNAME=SRDTL, SEGTYPE=U, PARENT=SRACCT,$
FIELDNAME=MO_BEG_QTY ,ALIAS=LO_MO_BEG ,FORMAT=D11.2 ,
TITLE='MO,BEGNG,QTY' ,$
$ DESC=INSSS04 BEG BAL - THIS MONTH,
FIELDNAME=LAST_PHY_DT ,ALIAS=LAST_PHY_DT ,FORMAT=I6 ,
TITLE='PART LAST,PHYSICAL,DATE',$
$ DESC=INSSS21 DATE LAST PHYSICAL
FIELDNAME=LST_ADJ_DT ,ALIAS=LO_LSTADJ_DT ,FORMAT=I6 ,
TITLE='LAST,ADJMNT,DT' ,$
$ DESC=INSSS15 DATE LAST ADJUSTMENT,
FIELDNAME=LST_ISS_DT ,ALIAS=LST_ISS_DT ,FORMAT=I6 ,
TITLE='LAST,ISSUD,DT' ,$
$ DESC=INSSS12 DATE LAST ISSUE,
FIELDNAME=LST_RCPT_DT ,ALIAS=LO_LSTRCP_DT ,FORMAT=I6 ,
TITLE='LAST,RCPT,DATE' ,$
$ DESC=INSSS08 DATE LAST RECEIPT,
FIELDNAME=MIN_SS_QTY ,ALIAS=LO_MIN_SS ,FORMAT=D11.2 ,
TITLE='MIN,SAFETY,STCK' ,$
$ DESC=INSSS18 MIN-SAFETY STOCK,
FIELDNAME=MTD_ADJ_QTY ,ALIAS=LO_MTD_ADJ ,FORMAT=D11.2 ,
TITLE='MTD,ADJMNT' ,$
$ DESC=INSSS13 ADJUSTMENTS - MTD,
FIELDNAME=MTD_ISS_QTY ,ALIAS=LO_MTD_ISS ,FORMAT=D11.2 ,
TITLE='MTD,ISSUD,QTY' ,$
$ DESC=ISSS09 ISSUES - MTD,
FIELDNAME=MTD_RCPT_QTY,ALIAS=LO_MTD_RCPT ,FORMAT=D11.2 ,
TITLE='MTD,RCPT,QTY' ,$
$ DESC=ISSS06 RECEIPTS - MTD,
FIELDNAME=PRMRY_SR_LOC,ALIAS=LO_PRMSR_LOC ,FORMAT=A15 ,
TITLE='PRMRY,STKRM,LOCTN',$
$ DESC=ISSS03 STOREROOM LOCATION,
FIELDNAME=PHY_QTY ,ALIAS=PHY_QTY ,FORMAT=D11.2,
TITLE='PHYSICAL,QUANTITY',$
$ DESC=ISSS20 PHYSICAL QUANTITY
FIELDNAME=SYS_QTY ,ALIAS=SYS_QTY ,FORMAT=D11.2,
TITLE='SYSTEM,QUANTITY' ,$
$ DESC=ISSS19 BOOK QUANTITY
FIELDNAME=QTY_ONHAND ,ALIAS=QTY_ONHAND ,FORMAT=D11.2 ,
TITLE='STKRM,ON HAND,QTY',$
$ DESC=ISSS16 QUANTITY ON HAND,
FIELDNAME=WRKSHT_DT ,ALIAS=WRKSHT_DT ,FORMAT=I6 ,
TITLE='PHYSICAL,WORKSHEET,DATE' ,$
$ DESC=ISSS22 WORKSHEET DATE
FIELDNAME=YTD_ADJ_QTY ,ALIAS=LO_YTD_ADJ ,FORMAT=D11.2 ,
TITLE='YTD,ADJMNT' ,$
$ DESC=INSSS14 ADJUSTMENTS - YTD,
FIELDNAME=YR_BEG_QTY ,ALIAS=LO_YR_BEG ,FORMAT=D11.2 ,
TITLE='YR,BEGNG,QTY' ,$
$ DESC=ISSS05 BEG BAL - THIS YEAR,
FIELDNAME=YTD_ISS_QTY ,ALIAS=LO_YTD_ISS ,FORMAT=D11.2 ,
TITLE='YTD,ISSUD,QTY' ,$
$ DESC=ISSS10 ISSUES - YTD,
FIELDNAME=YTD_RCPT_QTY,ALIAS=LO_YTD_RCPT ,FORMAT=D11.2 ,
TITLE='YTD,RCPT,QTY' ,$
$ DESC=ISSS07 RECEIPTS - YTD,
SEGNAME=ROUTING, SEGTYPE=S1 ,PARENT=PARTS,$
FIELDNAME=ROUTG_TY ,ALIAS=ROUTG_TY ,FORMAT=A1,
TITLE='ROUTG,TY',$
$ DESC=LRCS02 ROUTING TYPE
FIELDNAME=ROUTG_ID ,ALIAS=ROUTG_ID ,FORMAT=A8,
TITLE='ROUTG,ID',$
$ DESC=LRCS03 ROUTING CODE
SEGNAME=OPSEQNO, SEGTYPE=S1 ,PARENT=ROUTING,$
FIELDNAME=OPSEQ ,ALIAS=OPSEQ ,FORMAT=A3,
TITLE='OP,SEQ,NO',$
$ DESC=LRCS04 OPERATION SEQ. NO.
FIELDNAME=ROUTG_ADD_DT,ALIAS=ROUTG_ADD_DT ,FORMAT=I6,
TITLE='ROUTING,ADD DATE',$
$ DESC=LRCS25 DATE ADDED
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$
$ DYNAMIC AND STATIC CROSS REFERENCES
$ FILE SEGMENT DATE WHO
$ ------ ------- -------- ---
$ STACCT STRACCT 12/09/87 DRW
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
SEGNAME=STRACCT, SEGTYPE=DKU, PARENT=SRACCT, CRFILE=STACCT, CRKEY=SR,
CRSEGNAME=STRACCT,$
$$$
$END
$DBA=WYOMING, $
$USER= ,ACCESS=R, $
| |||||
| 516.4 | fex | WMOIS::BREEN_Y | Mon Jun 01 1992 15:59 | 67 | |
This is the fex that fails! It seems to produce the error
at the point where it says modify table ldparts. I don't have the
log but the error messages are mentioned in the first part of this
note.
Thanks for taking a look!
-*----------------------------------------------------------------------------*
-* *
-* PROCEDURE LDSRRCS *
-* *
-* LOADS THE FOCUS PARTS DATABASE *
-* DATA IS IN FILE 'SRRCS.NCA' *
-* *
-*----------------------------------------------------------------------------*
USE FOCUSFIL:PARTS.FOC AS LDPARTS
END
-******************************************************************************
-*
-* LOAD THE INSSS DATA INTO THE PARTS.FOC FILE
-*
-******************************************************************************
FILEDEF SRRCS DISK DATA_IN
FILEDEF SRRCS_LG DISK LOAD_RPT APPEND
FILEDEF DUP_FILE DISK DUP_OUT
MODIFY FILE LDPARTS
LOG INVALID ON SRRCS_LG MSG ON
LOG FORMAT ON SRRCS_LG MSG ON
LOG NOMATCH ON SRRCS_LG MSG OFF
COMPUTE
IN_ROUT_ADDT/A8=;
FIXFORM PART/A16 X9 ROUTG_TY/A1 ROUTG_ID/A8
FIXFORM OPSEQ/A3 X8 X8 X8 X8
FIXFORM X8 X8 X8 X8
FIXFORM X8 X8 X8 X8
FIXFORM X8 X8 X8 X8
FIXFORM X8 X8 X8 X8
FIXFORM IN_ROUT_ADDT/A8
COMPUTE
ROUTG_ADD_DT/I6=VMSDT(IN_ROUT_ADDT,ROUTG_ADD_DT);
MATCH PART
ON MATCH CONTINUE
ON NOMATCH TYPE ON DUP_FILE
"PART NUM: <PART "
ON NOMATCH REJECT
MATCH ROUTG_TY
ON NOMATCH INCLUDE
ON MATCH CONTINUE
MATCH OPSEQ
ON NOMATCH INCLUDE
ON MATCH TYPE ON DUP_FILE
"PART NUM: <PART <28 ROUT TY: <ROUTG_TY <40 ROUT ID: <ROUTG_ID
<55 OPER SEQ : <OPSEQ"
CHECK OFF
DATA ON SRRCS
END
| |||||