Conference ilbbak::ibi_focus

483.0. "Help needed, error (FOC1357)" by EEMELI::RIDANPAA () Thu Nov 21 1991 10:28

Hi all,

we are getting a strange error message from FOCUS (V5.2) it is:

(FOC1357) NOT ENOUGH VIRTUAL MEMORY

I can find it from Rdb interface Users Manual but manual doesn't include any
explanations or it doesn't suqquest any actions.

Does anyone have any suqqestions what quotas or parameters has to be increased
or what has to be done.

_Heikki_

PS. We use application called MRE when we run these FOCUS reports. MRE allows
you to run report on your terminal or in batch. If you run report on your
terminal it's Ok but if you run it in batch you will get this error message.
If you run report on terminal your process creates subprocess which executes
FOCUS part.

=============================================================================
User account:
=============

Username: MURTO                            Owner:  113226 MURTO L.
Account:  29Q_AL                           UIC:    [160,6] ([CAS,MURTO])
CLI:      DCL                              Tables: DCLTABLES
Default:  DEV$FETA:[MURTO]
LGICMD:   LOGIN
Flags:
Primary days:   Mon Tue Wed Thu Fri
Secondary days:                     Sat Sun
No access restrictions
Expiration:            (none)    Pwdminimum:  8   Login Fails:     0
Pwdlifetime:         90 00:00    Pwdchange:  12-NOV-1991 12:09
Last Login: 21-NOV-1991 14:50 (interactive), 21-NOV-1991 16:57
(non-interactive)
Maxjobs:         0  Fillm:       300  Bytlm:       100000
Maxacctjobs:     0  Shrfillm:      0  Pbytlm:           0
Maxdetach:       0  BIOlm:       300  JTquota:      30000
Prclm:          10  DIOlm:       300  WSdef:         1500
Prio:            4  ASTlm:       800  WSquo:         2000
Queprio:         0  TQElm:       200  WSextent:     32768
CPU:        (none)  Enqlm:      3000  Pgflquo:     200000
Authorized Privileges:
  TMPMBX NETMBX
Default Privileges:
  TMPMBX NETMBX
Identifier                         Value           Attributes
  OFW                              %X80010006      RESOURCE
  MRE                              %X80010009      RESOURCE
  OFR                              %X8001000A
  MRE_ADMIN                        %X80010011
  MRE$ADMIN_MRE                    %X8001004C
  MRE$ADMIN_RA                     %X8001004D
  MDVUSR                           %X8001004E      RESOURCE
  COMAND                           %X8001005F      RESOURCE
  OLR                              %X80010068      RESOURCE
  FAF                              %X80010069      RESOURCE
  OFC                              %X8001006E      RESOURCE
  OASM_STAGE_2                     %X80010079      RESOURCE
  OLW                              %X8001007A      RESOURCE
  OLW_OPER                         %X8001007B      RESOURCE
  SIM                              %X80010072      RESOURCE
  SIM_USER                         %X80010076
  BOPS                             %X8001002F      RESOURCE
  BOPS_USR                         %X80010031
  BOPS_SYS                         %X80010034
  BOPS_ORD                         %X80010035
  BOPS_MAT                         %X80010036
  BOPS_SAL                         %X80010038
  BOPS_ENQ                         %X80010039
  BOPS_BEQ                         %X8001003A
  BOPS_STS                         %X8001003C
  BOPS_DCL                         %X80010030
  OFW_OPERATOR                     %X80010007
  SUPPORTER                        %X80010008
  OBR                              %X800100F9      RESOURCE
  SOVKANTA                         %X800100F3      RESOURCE
  COP$ID_USR_FN0A                  %X80010120
  OEV051                           %X8001012B      RESOURCE
  BSE_INQ                          %X80010159
  CUS_EDITOR                       %X8001015F
  CUS_USER                         %X80010160
  DSC_EDITOR                       %X80010164
  DSC_USER                         %X80010165
  REF_COPY                         %X80010166
  REF_EDITOR                       %X80010169
  REF_USER                         %X8001016A
  OEV_QUOTA                        %X8001016E      RESOURCE
  AQS                              %X8001008A      RESOURCE
  AROF                             %X80010177      RESOURCE
  BSE_READ                         %X8001015A



============================================================================
FOCUS procedure:
================
-*FILEDEF PAIVAT DISK PAIVAT.FEX
-*-INCLUDE PAIVAT
-*-RUN
-SET &ECHO=ALL;
DEFINE FILE ORDERS
SHP_NAME/A20=EDIT(AD_FN_L1,'99999999999999999999');
SHP_NAME2/A20=EDIT(AD_FN_L2,'99999999999999999999');
SHP_AD1/A20=EDIT(AD_L1,'99999999999999999999');
SHP_AD2/A20=EDIT(AD_L2,'99999999999999999999');
SHP_AD3/A20=EDIT(AD_L3,'99999999999999999999');
SHP_AD4/A20=EDIT(AD_L4,'99999999999999999999');
SHP_AD5/A20=EDIT(AD_L5,'99999999999999999999');
SHP_CITY/A10=EDIT(AD_CITY_NM,'9999999999');
SHP_POST/A5=EDIT(AD_PSTL_CD,'99999');
OFFLINE
SET PANEL=255
-*MYYJA/A6=EDIT(SLSP_1_BG_NO,'999999');
-*H_PL/A4=EDIT(HDR_BKG_CD,'9999');
-*CA/A6=EDIT(CAS_CT_BG_NO,'999999');
END
MATCH FILE ORDERS
PRINT DNG_QY PART_ID_L DNG_CDT_L
-*NET_LI_LC MYYJA ORST_ODT_L
BY DECNO
-*IF ORST_ODT_L FROM &&APVM TO &&LPVM
IF DNG_CDT_L FROM '19900101' TO '19911108'
IF OR_ATV_ST_CD NE 'X'
IF LICH_L_TCD NE '2'
RUN
FILE ORDERS
SUM DECNO
BY DECNO
IF OR_TY_OEV_CD LT '3'
AFTER MATCH HOLD AS TEMP1 OLD-AND-NEW
RUN
FILE ORDERS
PRINT SHP_NAME SHP_NAME2 SHP_AD1 SHP_AD2 SHP_AD3 SHP_POST SHP_CITY
BY DECNO
IF OR_AD_TCD EQ '03'
IF SHP_NAME CONTAINS 'KEHITYS' OR 'KERA' OR 'Kehitys'
AFTER MATCH HOLD AS TEMP2 OLD-AND-NEW
-*RUN
-*FILE ORDERS
 -*SUM CA H_PL
-*BY DECNO
-*AFTER MATCH HOLD AS TEMP2 OLD-AND-NEW
END
-RUN
END
TABLE FILE TEMP2
PRINT DNG_QY AS 'KPL' AND PART_ID_L AS 'TUOTE' AND DNG_CDT_L AS 'TOIM.PV'
NET_LI_LC AS 'NETTO'
-*AND ORST_ODT_L AS 'TIL.PV'
BY SHP_NAME NOPRINT
SUBFOOT
" "
"Toimitusosoite: <SHP_NAME"
"                <SHP_NAME2"
"                <SHP_AD1"
"                <SHP_AD2"
"                <SHP_AD3"
"                <SHP_POST"
"                <SHP_CITY"
" "
BY DECNO SKIP-LINE
-*BY CA
-*BY H_PL
-*BY MYYJA
HEADING
" KERA OEV-TOIMITUKSET 1.1.90 -7.11.91"
END
============================================================================
Batch job log file:
===================

$ !*************************************************************
$ ! Added by HRI 20.12.1990. Temporary sort files are located to
$ ! directory $1$dua13:[sort]
$ !define sortwork0 $1$dua13:[sort]
$ !*************************************************************
$!
$!
$ defi MRE$$K_VERIFY VERIFY
$ dele/symb/glob allin1
%DCL-W-UNDSYM, undefined symbol - check validity and spelling
$ a1:=="@oa$lib:a1start ""/reenter"" """
$ allin1:=="@oa$lib:a1start ""/reenter"" """
$ allin1xxx:==allin1/user="MURTO.LEO"
$ allin1 :== allin1/user="MURTO.LEO"
$ if f$mode() .nes. "INTERACTIVE" then exit
$ SET VERIFY
$!==========================================================
$! mre$batch_run_report
$! This command file is used to run a report requested 
$! by the user in batch mode. It takes one parameter:-
$!
$!	1. The unique name made for the temporary frame for the procedure
$!
$! Details are read from the file in order to check the procedure
$! exists
$!
$! Author : Pauline Tabrett 
$! Date   : 16-SEP-1988
$!
$!==========================================================
$!
$	mre$error = "0"
$	mre$read_message :== $mre$$d_exe:mre$read_messageshr
$!
$! 
$! Update the EXECUTING date in the frame file
$!
$	mre$update_frame :== $mre$$d_exe:mre$update_frameshr
$	mre$update_frame "OORCNLOU",0,executing
$!
$! Get the cpu start time
$!
$	@MRE$$D_COM:mre$run_getcpu_start
$ SET VERIFY
$! MRE$RUN_GETCPU_START
$!
$! Command file to get the cpu time and, if an interactive run
$! return to ALL-IN-1
$!
$ cpu_start == F$GETJPI("","CPUTIM")
$ IF F$MODE() .EQS. "BATCH" THEN EXIT
$!
$! Set default into the directory that holds all the 
$! users MRE files and executables, 
$! NOTE this will be Evha directory on RA machine
$!
$ 	topdir = F$TRNLNM("SYS$LOGIN")
$ 	dir_del = F$EXTRACT(F$LENGTH(topdir)-1,1,topdir)
$	mredir ==F$EDIT(topdir-dir_del+F$TRNLNM("mre$$k_dir")+dir_del,"collapse")
$ 	ASSIGN DEV$FETA:[MURTO.a2] mre$dir
$!
$ 	SET DEFAULT mre$dir
$!
$! Open the temporary file using the parameter 
$!
$	temp_frame = "OORCNLOU.tmp"
$	OPEN/READ frame_file OORCNLOU.tmp
$!
$!
$	READ frame_file frame_record
$	CLOSE frame_file
$!
$! Extract the frame name, vms user, and procedure name and extension
$!
$	frame_name = "OORCNLOU"
$	vmsusr = "MURTO       "
$	proc_name  = "ASIAKAS1"
$	proc_ext  = "FEX"
$!
$	full_name = "OORCNLOU . FEX"
$	full_name = F$EDIT(full_name,"collapse")
$!
$! Write the procedure name to the log file
$!
$ WRITE SYS$OUTPUT -
"--------------------------------------------------------------------------------"
--------------------------------------------------------------------------------
$ mre$read_message %mre-i-rbl,0,message
$ WRITE SYS$OUTPUT -
"MRE background log file from your Office Machine for procedure: ASIAKAS1"
MRE background log file from your Office Machine for procedure: ASIAKAS1
$ mre$read_message %mre-i-r05,0,message
$ WRITE SYS$OUTPUT "Unique name: OORCNLOU.FEX"
Unique name: OORCNLOU.FEX
$ mre$read_message %mre-i-r03,0,message
$ WRITE SYS$OUTPUT "Node name: HSKAP3"
Node name: HSKAP3
$ mre$read_message %mre-i-r04,0,message
$ WRITE SYS$OUTPUT "Time: 18-NOV-1991 11:03:38.53"
Time: 18-NOV-1991 11:03:38.53
$ WRITE SYS$OUTPUT -
"--------------------------------------------------------------------------------"
--------------------------------------------------------------------------------
$! 
$! Check that the routine to run actually exists
$!
$ 	IF F$SEARCH("OORCNLOU.FEX") .NES. "" THEN GOTO routine_ok
$ routine_ok:
$!
$! First check that the data store is not being updated
$!
$!
$! Set up the Reporting Application and Data Store Code
$!
$	app_code = "OBR "
$	app_code = F$EDIT(app_code,"collapse")
$	data_store_code = "OFW "
$	data_store_code = F$EDIT(data_store_code,"collapse")
$!
$	mre$read_application :== $mre$$d_exe:mre$read_applicationshr
$ check_data_store:
$	mre$read_application OBR,0,data_store_load
$	mre$read_applicationshr = F$EDIT(mre$read_applicationshr,"trim")
$	IF "0" .EQS. "0" THEN GOTO data_run
$ data_run:
$	process_name = F$PROCESS()
$	batch_no = F$ELEMENT(1,"_",process_name)
$	dir_name == "[.557]"
$	full_dir_name = mredir-dir_del+".557"+dir_del
$!
$! Copy the required files into the directory after creation
$!
$	CREATE/DIR [.557]
$	COPY OORCNLOU.FEX [.557]*
$	init_proc_user = "        "
$	init_proc_user = F$EDIT(init_proc_user,"collapse")
$	IF init_proc_user .EQS. "" THEN GOTO copy_done
$copy_done:
$!
$! Set default into this directory
$!
$	SET DEFAULT [.557]
$!
$! Extract the CDN, and INIT_RA  from the frame record
$!
$	cdn  = "0"
$	init_proc_ra = "OBR_INIT"
$	init_proc_ra = F$EDIT(init_proc_ra,"collapse")
$!
$! Set PRIORITY as 0 to avoid any reduction for batch jobs in the run routine
$!
$	priority = "0"
$!
$! Ensure the initial procedures are not passed as a null
$!
$	IF "" .NES. "" THEN GOTO check_init_ra
$	init_proc_user = "%noparameter"
$check_init_ra:
$	IF "OBR_INIT" .NES. "" THEN GOTO run_it
$ run_it:
$!
$! Run it ....
$!
$ 	@mre$$d_com:mre$focus$wpsplus_run_local OORCNLOU 0 OBR_INIT %noparameter OBR OFW 0
$ SET VERIFY
$! Assigns various logicals, and writes the .FEX procedure that
$! FOCUS executes on invocation, which itself executes the .FEX that
$! the user has just created.
$!
$! p1 = Name of procedure file to be used , without extension
$! p2 = Yes or No for CDN
$! p3 = application's initial procedure name
$! p4 = user's initial procedure name
$! p5 = reporting application code
$! p6 = data store code
$! p7 = priority reduction 
$!
$! Reduce the priority as appropiate
$!
$	if "0" .eqs. "0" then goto SET_LOGICALS
$ SET_LOGICALS:
$! Set up the MRE$$D_FOCDIR logicals for the data store
$!
$ MRE$K_MODE = F$MODE()
$!
$SET_APPLICATION:
$ @Mre$$D_Com:Mre$Set_Application OBR OFW
$ SET VERIFY
$ ! Command procedure to set the environment for the current application.
$ ! It defines the logical names, which are then used by ALL-IN-1 and FOCUS
$ ! for accessing the data, shell reports, etc.
$ ! 
$ ! p1 = Code for the Reporting Application
$ ! p2 = Code for the Data Store Application
$ !
$ ! Author : Howard Garland
$ ! Date   : 24-OCT-1988
$ !
$ !--------------------------------------------------------------------------
$ !
$ ! Work out the ALL-IN-1 directory name and add it to the search path,
$ ! to make sure we always get at the contents of the ALL-IN-1 default 
$ ! directory. 
$ !
$ 	top_dir=F$TRNLNM("sys$login")
$ 	dir_del=F$EXTRACT(F$LENGTH(top_dir)-1,1,top_dir)
$ 	mre$dir=F$EDIT(top_dir-dir_del+F$TRNLNM("mre$$k_dir")+dir_del+-
		",","COLLAPSE")
$ ! 
$ ! Check whether the application is their Group Retail Store.
$ ! The logical name translation will be the same as p1 if it is...
$ !
$ check_grs:
$ !
$ 	IF F$TRNLNM("mre$$k_grs") .NES. "OBR" THEN GOTO check_prs
$ check_prs:
$ !
$ 	IF F$TRNLNM("mre$$k_prs") .NES. "OBR" THEN GOTO define_logicals
$ DEFINE_LOGICALS:
$ !
$ ! Define the logical names for the reporting application and the data
$ ! store application
$ ! 
$ define/nolog/job MRE$$D_TAB MRE$$D_ROOT:[OBR.TAB]
$ define/nolog/job MRE$$D_GROUP MRE$$D_ROOT:[OBR.GSP]
$ per$dir=f$edit(TOP_DIR-DIR_DEL+f$trnlnm("MRE$$K_DIR")+DIR_DEL,"collapse")
$ define/nolog/job MRE$$D_PER DEV$FETA:[MURTO.a2]
$ define/nolog/job MRE$$D_GRS MRE$$D_ROOT:[OBR.GRS]
$ define/nolog/job MRE$$D_FOCDIR1 DEV$FETA:[MURTO.a2],OFW$$D_DML,MRE$$D_TAB
$ define/nolog/job MRE$$D_FOCDIR2 OFW$$D_DAT,MRE$$D_TAB
$ define/nolog/job MRE$$D_FOCDIR3 OBR$$D_EXE
$ define/nolog/job MRE$$D_FOCDIR4 MRE$$D_LIB,OBR$$D_LIB
$ !
$ exit                                    
$ DEFINE/JOB/NOLOG GROUP MRE$$D_GROUP
$ DEFINE/JOB/NOLOG PERSONAL MRE$$D_PER
$!
$ ASSIGN/NOLOG MRE$$D_FOCDIR1 FOC$DIR1
$ ASSIGN/NOLOG MRE$$D_FOCDIR2 FOC$DIR2
$ ASSIGN/NOLOG MRE$$D_FOCDIR3 FOC$DIR3
$ ASSIGN/NOLOG MRE$$D_FOCDIR4 FOC$DIR4
$!
$! Get the run message
$!
$ MRE$MESSAGE :== $MRE$$D_EXE:MRE$READ_MESSAGESHR
$ MRE$MESSAGE %MRE-I-RGF,0,MESSAGE
$!
$FOCUS_REPORT:
$ OPEN/WRITE RUNFILE PROF_MRE.FEX
$ WRITE RUNFILE "-TYPE "
$!
$ ! Set Continental Decimal Notation ON, as required
$ if "0" .eqs. "1" then WRITE RUNFILE "SET CDN=ON"    
$!
$ ! MORE off, and MSG off, to get rid of all those silly FOCUS messages
$ WRITE RUNFILE "SET MORE=OFF,MSG=OFF"
$!
$ WRITE RUNFILE "FILEDEF OFFLINE DISK MRE.LIS"
$ WRITE RUNFILE "OFFLINE"
$ ! SET PANELling to its limit of 255, must be done here so that FILEDEF done
$ WRITE RUNFILE "SET PANEL=255"
$!
$ if "OBR_INIT" .eqs. "%NOPARAMETER" then goto INIT_USER
$ WRITE RUNFILE "-INCLUDE FOC$DIR3:OBR_INIT"
$ WRITE RUNFILE "-RUN"
$ WRITE RUNFILE "-IF &RETCODE EQ '8' THEN GOTO TABLEERR;"
$!
$INIT_USER:
$ if "%NOPARAMETER" .eqs. "%NOPARAMETER" then goto USER_PROC
$USER_PROC:
$ WRITE RUNFILE "-INCLUDE OORCNLOU"
$ WRITE RUNFILE "ONLINE"
$ WRITE RUNFILE "-TYPE Generating report ..."
$ WRITE RUNFILE "-RUN"
$ WRITE RUNFILE "-IF &RETCODE EQ '8' THEN GOTO TABLEERR;"
$ IF F$MODE() .EQS. "BATCH" THEN GOTO Nowait
$ Nowait:
$ WRITE RUNFILE "FIN"
$ WRITE RUNFILE "-EXIT"
$ WRITE RUNFILE "-TABLEERR"
$ WRITE RUNFILE "FIN"
$ CLOSE RUNFILE
$ !
$ IF F$MODE().NES."BATCH" THEN ASSIGN/USER __$1$DUS8: SYS$INPUT
$!
$ FOCUS == "$IBI$FOCUS:FOCUS"
$!
$! Save the time so that we can add some useful information to the
$! top of the report once it has completed
$!
$ Start_Time == F$TIME()
$!
$ FOCUS/NOBANNER "EX PROF_MRE.FEX"
*** FOCUS COPY WILL EXPIRE 12/13/91 ***
>
>(FOC1357) NOT ENOUGH VIRTUAL MEMORY
%NONAME-W-NOMSG, Message number 00000000
$!
$ End_Time == F$TIME()
$!
$ Copy_To_Notes="YES"
$ IF F$SEARCH("Mre.Lis") .EQS. "" THEN GOTO Tidy_Up
$ Tidy_Up:
$!
$ IF F$SEARCH("Mre.Lis") .EQS. "" THEN Copy_To_Notes="NO"
$ IF F$SEARCH("TABLTALK.FTM") .NES. "" THEN RENAME/NOLOG TABLTALK.FTM TABLTALK.SAV
$ IF F$SEARCH("*.FTM") .NES. "" THEN DELETE/NOLOG/NOCONFIRM *.FTM;*
$ IF F$SEARCH("TABLTALK.SAV") .NES. "" THEN RENAME/NOLOG TABLTALK.SAV TABLTALK.FTM
$ DELETE PROF_MRE.FEX;*
$!
$ IF F$SEARCH("Mre.Lis") .EQS. "" THEN GOTO Nothing_There
$ Nothing_There:
$!
$       DEASSIGN FOC$DIR1
$       DEASSIGN FOC$DIR2
$       DEASSIGN FOC$DIR3
$       DEASSIGN FOC$DIR4
$	IF "BATCH" .EQS. "BATCH" THEN GOTO FINISH
$ FINISH:
$!
$! Increase the priority as appropiate
$!
$	if "0" .eqs. "0" then exit
$!
$! Get the append flags to determine additional information with the result
$!
$	update_date = "0"
$	update_date = F$EDIT(update_date,"COLLAPSE")
$	statistics = "0"
$	statistics = F$EDIT(statistics,"COLLAPSE")
$	source = "0"
$	source = F$EDIT(source,"COLLAPSE")
$!
$! Update the delivering date
$!
$	@mre$$d_com:mre$batch_updatedelivering OORCNLOU
$ SET VERIFY
$! MRE$BATCH_UPDATEDELIVERING
$!
$!==========================================================
$! 
$! This command file is used to update the frame file with the date the 
$! batch run starts the copy of the result to the user ie. the DELIVERING field
$!
$!	It takes one parameter:-
$!
$!	1. The unique name made for the temporary frame for the procedure
$!
$! Author : Pauline Tabrett 
$! Date   : 21-OCT-1988
$!
$!==========================================================
$!
$! Get the frame name from the parameter
$!
$	frame = "OORCNLOU"
$!
$! Update the frame file 'delivering'date
$!
$	mre$update_frame :== $mre$$d_exe:mre$update_frameshr
$	mre$update_frame "OORCNLOU",0,DELIVERING
$	EXIT
$!
$! Get the cpu run time
$!
$	@mre$$d_com:mre$run_getcpu_runtime cpu_start
$ SET VERIFY
$! MRE$RUN_GETCPU_RUNTIME
$!
$! Command file to get the cpu time and use the start cpu time to 
$! calculate the cpu time for the run. If an interactive run
$! return to ALL-IN-1
$!
$! Parameter
$! p1 = cpu time at start of run
$!
$ cpu_finish = F$GETJPI("","CPUTIM")
$ time = cpu_finish - CPU_START
$!
$! Convert time to a display format
$!
$ seconds = time/100
$ hundredths = time - (seconds*100)
$ IF hundredths .LT. 10 THEN hundredths := 039
$ minutes = seconds/60
$ seconds = seconds - (minutes*60)
$ IF seconds .LT. 10 THEN seconds := 048
$ IF minutes .LT. 10 THEN minutes  := 07
$ IF minutes .LT. 60 THEN GOTO format_datem
$format_datem:
$ hours := "00"
$ display_date :== 00:07:48:39
$!
$ IF F$MODE() .EQS. "BATCH" THEN EXIT
$!
$! Update the frame record
$!
$	mre$update_frame "OORCNLOU",0,CPU_TIME,00:07:48:39
$!
$! Copy the report to the user's import directory
$!
$	vmsusr_name = "MURTO       ASIAKAS1"
$ 	@mre$$d_com:mre$wpsplus_batch_deliver OORCNLOU FEX ASIAKAS1 %noparameter 0 0 0 "MURTO       ASIAKAS1"
$ SET VERIFY
$!==========================================================
$!
$! This command file is used to copy the output of a batch report 
$! run created by MRE$FOCUS$WPSPLUS_RUN into the users 
$! new document import directory. 
$! Then it cleans up the files created for the run.
$!
$! It is run from the command file MRE$BATCH_RUN 
$! 
$! Parameters
$!	P1 - unique name of temp frame
$!	P2 - extension of the uniquely named procedure
$!	P3 - original procedure name
$!	P4 - user's initial procedure name
$!	P5 - append data store update details
$!	P6 - append run statistics
$!	P7 - append source code
$!	P8 - vms user and procedure name
$!
$! Author : Pauline Tabrett - based on extract from MRE$SUBMIT_REPORT.COM
$! Date   : 20-SEP-1988
$!
$!==========================================================
$!
$! ....and save in the appropriate directory
$!
$	InDir=="DEV$FETA:[MURTO.a2]"- Dir_Del + "." + F$TRNLNM("MRE$$K_IMPORT") + Dir_Del
$	ChkDir==F$TRNLNM("MRE$$K_IMPORT")+".DIR"
$	CreDir==F$TRNLNM("MRE$$K_IMPORT")
$	IF F$SEARCH("DEV$FETA:[MURTO.a2]TO_IMPORT.DIR") .EQS. "" THEN CREATE/DIR [-.TO_IMPORT]
$!
$! Update the procedure with the run details
$!
$	@mre$$d_com:mre$batch_update_request OORCNLOU mre.lis
$ SET VERIFY
$! MRE$BATCH_UPDATE_REQUEST
$!==========================================================
$!
$! This command file is used to update the request file
$! with the post run details - report size, elapsed run time,
$! cpu time and last message
$!
$! It is run from the command file MRE$WPSPLUS_BATCH_DELIVER 
$! 
$! Parameters
$!	P1 - unique name of temp frame
$!	P2 - name of the results file
$!
$! Author : Pauline Tabrett 
$! Date   : 04-SEP-1989
$!
$!==========================================================
$!
$! Check if Group Shared Procedure
$!
$	mre$read_frame :== $mre$$d_exe:mre$read_frameshr
$	mre$read_frame "OORCNLOU",0,PROCEDURE_TYPE,EQL
$	mre$read_frameshr = F$EDIT(mre$read_frameshr,"COLLAPSE")
$	IF mre$read_frameshr .EQS. "P" THEN GOTO personal_procedure
$ personal_procedure:
$!
$! Get the report size
$!
$	MRE$MESSAGE_READ :== $MRE$$D_EXE:MRE$READ_MESSAGESHR
$	IF F$SEARCH("MRE.LIS") .EQS. "" THEN GOTO No_Output
$No_Output:
$	MRE$MESSAGE_READ %MRE-E-EEE,0,MESSAGE
$	GOTO update_request
$update_request:
$	message = F$EDIT(mre$read_messageshr,"TRIM")
$	mre$update_request :== $mre$$d_exe:mre$update_requestshr
$	mre$update_request "OORCNLOU",,"Error producing a result file"
$	EXIT
$!
$	IF F$SEARCH("Mre.Lis") .EQS. "" THEN GOTO No_Output
$ No_Output:
$!
$! Tidy up the temporary work directory used during the run
$!
$	GOSUB Tidy_Up
$ Tidy_Up:
$!
$! Tidy up the temporary work directory used during the run
$!
$	BatchDir=="DEV$FETA:[MURTO.a2]"-Dir_Del+ ".557"+Dir_Del
$	SET PROTECTION=O:RWED DEV$FETA:[MURTO.a2.557]*.*;*
$	IF F$SEARCH("DEV$FETA:[MURTO.a2.557]*.*") .NES. "" THEN -
				DELETE/NOLOG/NOCONFIRM DEV$FETA:[MURTO.a2.557]*.*;*
$	SET DEFAULT DEV$FETA:[MURTO.a2]
$	SET PROTECTION=O:RWED 557.DIR;
$	DELETE/NOLOG/NOCONFIRM 557.DIR;*
$!
$! Delete the uniquely named procedure in the user's .OA directory
$!
$	IF F$SEARCH("DEV$FETA:[MURTO.a2]OORCNLOU.FEX") .NES. "" THEN -
			DELETE/NOLOG/NOCONFIRM DEV$FETA:[MURTO.a2]OORCNLOU.FEX;*
$!
$! ..and the temporary frame in the user's .OA directory
$!
$	IF F$SEARCH("DEV$FETA:[MURTO.a2]OORCNLOU.tmp") .NES. "" THEN -
			DELETE/NOLOG/NOCONFIRM DEV$FETA:[MURTO.a2]OORCNLOU.TMP;*
$!
$	RETURN
$!
$! Add the document details to the new documents file
$!
$	mre$update_new :== $mre$$d_exe:mre$update_new_documentshr
$	mre$update_new OORCNLOU
$!
$! Finally delete the frame record for the procedure
$!
$	MRE$DELETE_FRAME :== $MRE$$D_EXE:MRE$DELETE_FRAMESHR
$	MRE$DELETE_FRAME "OORCNLOU"
$!
$! Generate error message file in user's import dir
$!
$	mre$read_message %mre-e-err,0,message
$	error_mess = "Error running background report"
$	OPEN/WRITE rfile DEV$FETA:[MURTO.a2.TO_IMPORT]OORCNLOU.ASIAKAS1
$ WRITE rfile -
"********************************************************************************"
$ mre$read_message %mre-i-r01,0,message
$ write RFILE "An error has occurred running procedure: ASIAKAS1"
$ mre$read_message %mre-i-r02,0,message
$ write RFILE "MRE error: Error running background report"
$ mre$read_message %mre-i-r03,0,message
$ write RFILE "Node name: HSKAP3"
$ mre$read_message %mre-i-r04,0,message
$ write RFILE "Time: 18-NOV-1991 11:24:21.36"
$ write RFILE -
"********************************************************************************"
$	CLOSE rfile
$!
$ Display_Message:
$!
$	IF F$LOCATE(",",F$USER()) .EQS. F$LENGTH(F$USER()) THEN GOTO NO_COMMA1
$	Mre$K_Brkthru_User == F$EXTRACT(F$LOCATE(",",F$USER())+1,-
                                   F$LENGTH(F$USER())-F$LOCATE(",",F$USER())-2,-
				   F$USER())
$DISPLAY_ERROR:
$	MRE$MESSAGE_READ :== $MRE$$D_EXE:MRE$READ_MESSAGESHR
$	MRE$MESSAGE_READ %MRE-E-ERR,0,MESSAGE
$	IF MRE$ERROR .EQS. "5" THEN -
	    MRE$MESSAGE_READ %MRE-E-MBD,0,MESSAGE
$	Mre$K_Brkthru_Tmp = f$edit(Mre$Read_Messageshr,"COMPRESS,TRIM")
$	Mre$K_Brkthru_Message == ""+Mre$K_Brkthru_Tmp+""
$	RUN Mre$$D_Exe:Mre$Notify_Usershr.Exe
$	EXIT
$!
$	EXIT
  MURTO        job terminated at 18-NOV-1991 11:24:23.99

  Accounting information:
  Buffered I/O count:             701         Peak working set size:    8749
  Direct I/O count:             17452         Peak page file size:     20875
  Page faults:                  16148         Mounted volumes:             0
  Charged CPU time:           0 00:07:52.54   Elapsed time:     0 00:20:51.25

Try up-ing your WSdef and WSquota - 

Suggestion only.

LisaC

	Hi again,

	we found information from SORT notes conference and TIMA that this kind
    	of problem could be caused by too 'large' process WSEXTENT value.

	We manage to solve this problem by DECREASING the WSEXTENT value.

	_Heikki_