Conference award::copis_users

142.0. "still having copy problem" by CINEMX::PATTENDEN (BARBARA PATTENDEN DTN 276-9713) Tue Dec 20 1988 14:09

When I log into my F/MIC account the following line is at the 
bottom of the screen:
%DCL-W-UNDFIL, file has not been opened by DCL - check logical name

Copy is still failing after extracting report with DEXT menu and I am 
getting two mail messages for the same failure.  However, I 
can go into the Node to Node Copy menu and copy the same file over to my 
CSSE account without any problems.

Barbara

 
From:	ORCHRD::PATTENDEN "BARBARA PATTENDEN OG1-2/J13 276-9713  20-Dec-1988 1349" 20-DEC-1988 13:52:39.85
To:	CSSE::PATTENDEN
CC:	
Subj:	COPIS REPORT/EXTRACT MASS2.MS2REV FAILED (SEQ CTL # = 0829)

$!
$!	SYS$MANAGER:SYLOGIN.COM	ORCHRD sub-cluster basic process environmental template
$!
$	if	f$mode() .eqs. "NETWORK" then	EXIT	!For MOM$LOAD, et al
$!
$ 	if	f$edit(f$getjpi( "","USERNAME"),"collapse") .eqs. "SYSTEM"	then	goto	Commentary
$!
$! For non-SYSTEM processes, eliminate VMS default VERIFY for BATCH jobs
$	if	f$mode() .eqs. "BATCH"
$	THEN	set	NOVERIFY		!For F/MAP Developers - per request
 
 
%DCL-W-UNDFIL, file has not been opened by DCL - check logical name
%DCL-E-OPENIN, error opening SYS$COMMON:[SYSMGR]TEST_FOR_ENV_COMMANDS.COM; as input
-RMS-E-PRV, insufficient privilege or file protection violation
%DCL-W-UNDSYM, undefined symbol - check validity and spelling
 \ENV_TEST\

Type 'NEWS', from time to time, to see news.

$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$! PROGRAM NAME  : COP_RUN_REQUEST.COM
$!
$! PROGRAM NARRATIVE  : 
$!
$!
$! REVISION HISTORY :
$!
$! VERSION 1.1
$!
$! CHANGE DATE : 12/14/88
$! CHANGED BY  : K Underkofler
$! CHANGE      : Removed redefinition of COP_EXE 
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$ BEGIN:
$    SHOW TIME
  20-DEC-1988 13:40:36
$    SAY := WRITE SYS$OUTPUT
$!
$ STEP_10:
$    OUTPUT_FILE_NAME = "MASS2.MS2REV0829              "
$    PROCESS_RUN_NAME = "COP_GEN_EXTRACT.EXE           "
$    MAIL_OR_COPY     = "C"
$    TRANSFER_PATH    = "NM%CSSE::PATTENDEN               "
$    PROXY            = "CSSE::CSSE          "
$    SEQ_CTL_NO       == "0829"
$    RPT_FLAG         == "EXTRAC"
$!
$! if user didn't enter filename with extension - string in .dat
$!
$    OUTPUT_FILE_NAME = F$EDIT(OUTPUT_FILE_NAME,"TRIM")
$    NAME_LENGTH = F$LENGTH(OUTPUT_FILE_NAME)
$    DOT_POS = F$LOCATE(".",OUTPUT_FILE_NAME)
$    IF NAME_LENGTH .NE. DOT_POS -
         THEN GOTO STEP_20
$ STEP_20:
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$! Setup logicals and symbols needed by the pgm
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$    USER_NAME = F$GETJPI("","USERNAME")
$    DEFINE OUTPUT_FILENAME MASS2.MS2REV0829
$    SHOW LOG OUTPUT_FILENAME
   "OUTPUT_FILENAME" = "MASS2.MS2REV0829" (LNM$PROCESS_TABLE)
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!    SET FISCAL DATE FILE LOGICAL FOR DELTA_ANAL_REPORT
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$    DEFINE FISCAL_DATE_FILE TLS_REF:TLS_FISCAL_DATES.DAT
$!
$ STEP_30:
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$! RUN the process requested by the user
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$    ON WARNING THEN GOTO BADSTEP_30
$    PROGRAM_STATUS = ""
$    RUN/NODEBUG COP_EXE:COP_GEN_EXTRACT.EXE           

**************************************************
**************************************************
****       PROGRAM COP_GEN_EXTRACT                
****   START DATE: 881220
****   START TIME: 13403854
**************************************************
**************************************************

TLS_SET_TRANSACTION executed successfully
%RDB-E-ARITH_EXCEPT, truncation of a numeric value at runtime
-LIB-F-DECOVF, decimal overflow

**************************************************
**************************************************
****       PROGRAM COP_GEN_EXTRACT                
****     END DATE: 881220
****     END TIME: 13491049
**************************************************
**************************************************

$    IF PROGRAM_STATUS .NES. "SUCCESS" THEN GOTO BADSTEP_30
$ BADSTEP_30:
$    SAY "PROCESS COP_GEN_EXTRACT.EXE            FAILED"
PROCESS COP_GEN_EXTRACT.EXE            FAILED
$! strip off the seq ctl number here because original file name used in
$! failed mail message
$    OUTPUT_FILE_NAME = F$EDIT(OUTPUT_FILE_NAME,"TRIM")
$    LENG = F$LENGTH("MASS2.MS2REV0829")
$    NEW_LENG = LENG - 4
$    NEW_FILE_NAME = F$EXTRACT(0,NEW_LENG,"MASS2.MS2REV0829")
$    GOTO BAD_EXIT
$BAD_EXIT:
$  SAY "COP_RUN_REQUEST finished unsuccessfully"
COP_RUN_REQUEST finished unsuccessfully
$  SUBMIT/KEEP/NOPRINT/AFTER=00:01/PARA=(MASS2.MS2REV,0829,-
    NM%CSSE::PATTENDEN               ) COP_EXE:FAILED.COM
Job FAILED (queue SHOTIM_SYS$BATCH, entry 410) started on SHOTIM_SYS$BATCH
$    EXIT
  PATTENDEN    job terminated at 20-DEC-1988 13:49:16.94

  Accounting information:
  Buffered I/O count:          725      Peak working set size: 21892
  Direct I/O count:          10895      Peak page file size:   41785
  Page faults:               13383      Mounted volumes:           0
  Charged CPU time:     0 00:03:51.31   Elapsed time:     0 00:08:51.20

    Copy is working fine today.