Submit in batch fails

[Robert Gezelter]

Willem,

Perhaps cloning the procedure into a test version and making the small change to fix the filename to something innocuous (e.g., SYS$LOGIN:LOGIN.COM).

The differences might be illuminating.

- Bob Gezelter, http://www.rlgsc.com

[Willem Grooters]

SET WATCH also shows the file exists:

$ if f$mode() .eqs. "BATCH" .and. f$environment("DEPTH") .eq. 0 .and. action .eqs. "REQUEUE"
$ then
$ if f$search(":[].COM") .nes. ""
$ then
$ set watch/class=all file
$ submit/hold/log=:[]/keep/noprint/queue=SYS$BATCH -
/param=("WG", "SYS$BATCH", "REQUEUE") -
/name="RESTART_WG" -
:[].COM
%XQP, Thread #0, FIB contents:
00000000 00000000 CBA70000 00000021 00000000 00000183 00000000 00000000
00000000 00000000 00000000 00030000 00000000 00000000 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
%XQP, Thread #0, FIB contents:
00000000 00000000 CBA70000 00000021 00000000 00000183 00000000 00000000
00000000 00000000 00000000 00030000 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
%XQP, Thread #0, Volume protection: Access requested: 00000001, Status: 00000001, PrvUsd: 00000000
%XQP, Thread #0, File protection (52135,33,0): Access requested: 00000004, Status: 00000001, PrvUsd: 00000000
%XQP, Thread #0, Read only directory access (52135,33,0)
%XQP, Thread #0, Directory scan for: .COM;0, Status: 00000001
%XQP, Thread #0, Lookup (84694,8,0) Status: 00000001
%XQP, Thread #0, FIB contents:
00000141 00039882 D2F10100 00000005 00000000 00224403 00000120 00000000
00000000 00000000 00000000 00017FFF 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000120 00000000 00000000 00000000
%XQP, Thread #0, FIB contents:
00000141 00039882 D2F10100 00000005 00000000 00224403 00000120 00000000
00000000 00000000 00000000 00017FFF 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
%XQP, Thread #0, Control function (104578,3,0) Status: 00000001
%XQP, Thread #0, FIB contents:
00000141 00039882 D2F10100 00000005 00000000 00224403 00000120 00000000
00000000 00000000 00000000 00017FFF 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000120 00000000 00000000 00000000
%XQP, Thread #0, FIB contents:
00000141 00039882 D2F10100 00000005 00000000 00224403 00000120 00000000
00000000 00000000 00000000 00017FFF 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
%XQP, Thread #0, Control function (104578,3,0) Status: 00000001
%XQP, Thread #0, FIB contents:
00000141 00039882 D2F10100 00000005 00000000 00224403 00000120 00000000
00000000 00000000 00000000 00017FFF 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000120 00000000 00000000 00000000
%XQP, Thread #0, FIB contents:
00000141 00039882 D2F10100 00000005 00000000 00224403 00000120 00000000
00000000 00000000 00000000 00017FFF 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
%XQP, Thread #0, Control function (104578,3,0) Status: 00000001
%XQP, Thread #0, FIB contents:
00000141 00039882 D2F10100 00000005 00000000 00224403 00000120 00000000
00000000 00000000 00000000 00017FFF 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000120 00000000 00000000 00000000
%XQP, Thread #0, FIB contents:
00000141 00039882 D2F10100 00000005 00000000 00224403 00000120 00000000
00000000 00000000 00000000 00017FFF 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
%XQP, Thread #0, Control function (104578,3,0) Status: 00000001
%SUBMIT-E-INVFILSPE, invalid file specification :[].COM;40
%SUBMIT-F-CREJOB, error creating job
-SYSTEM-S-NORMAL, normal successful completion
$ErrExit:

File with id (84694,8,0) is the file to be submitted (.COM). I couldn't locate (104578,3,0), might be the logfile? This is not created.)

[Hoff]

$ if f$mode() .eqs. "BATCH" .and. f$environment("DEPTH") .eq. 0 .and. action .eqs. "REQUEUE"
$ then

Build your filename symbol once, in its entirety. Sans version.
Then use f$parse and build the LOG name, if that's derived from the filename.
I'd build the process name and such here, too.

$ if f$search("''here'.COM") .nes. ""
$ then
$ show symbol/local/global submit
$ show log/full submit
$ dir /full 'here'.COM

SHOW LOGICAL
SHOW SYMBOL/ALL
SHOW SYMBOL /ALL /GLOBAL

And use the previously-built symbols. And SHOW SYMBOL the built symbols.

$ submit/hold /log='logdir'/keep/noprint/queue='quenam' -
/param=("''prcnam'", "''quenam'", "''action'") -
/name="START_''prcnam'" -
'here'.COM
$ else
$ write sys$output "File NOT FOUND????????"


BTW: EOJ is a valid DCL command.

$ goto eoj
$ endif
$ endif

How deep is the directory structure here?

ODS-2 v. ODS-5 parsing differences?

How does the .COM file instantiate itself?

And as others have stated, get a "decontaminated" system or procedure, and test over there.

If you can't show names and don't have a decontaminated server, then swap in actual strings for strings. Don't swap in and similar bogus strings as that can mask critical details NOT related to the name strings.

I'd also toss a SET WATCH here, if that's permissible within this environment, just before the SUBMIT command.

[EdgarZamora]

My WAG is that there is something wrong with your "". Maybe add a SHOW LOG dev (whatever dev is) right before your submit command.

[Willem Grooters]

Hoff's and John's suggestions combined:

me = f$parse(";",f$environment("Procedure"),,,"NO_CONCEAL") - ";"

gives me:

:[].COM

= 'physical' device: a shadowset(DSnn:)

Use 'me' to submit, but no difference - same problem.

Submitting SYS$LOGIN:LOGIN.COM instead of this filespec, keeping the rest as it is, did submit the job:

$ submit/hold/log=:[]/keep/noprint/queue=SYS$BATCH -
/param=("WG", "SYS$BATCH", "REQUEUE") -
/name="WG" -
sys$login:login.com
%XQP, Thread #0, FIB contents:
00000000 00000000 58500000 00000D10 00000000 00000183 00000000 00000000
00000000 00000000 00000000 00030000 00000000 00000000 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
%XQP, Thread #0, FIB contents:
00000000 00000000 58500000 00000D10 00000000 00000183 00000000 00000000
00000000 00000000 00000000 00030000 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
%XQP, Thread #0, Volume protection: Access requested: 00000001, Status: 00000001, PrvUsd: 00000000
%XQP, Thread #0, File protection (22608,3344,0): Access requested: 00000004, Status: 00000001, PrvUsd: 00000000
%XQP, Thread #0, Read only directory access (22608,3344,0)
%XQP, Thread #0, Directory scan for: LOGIN.COM;0, Status: 00000001
%XQP, Thread #0, Lookup (47019,23,0) Status: 00000001
%XQP, Thread #0, FIB contents:
00000141 00059874 D2F10100 00000005 00000000 00224403 00000120 00000000
00000000 00000000 00000000 00017FFF 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000120 00000000 00000000 00000000
%XQP, Thread #0, FIB contents:
00000141 00059874 D2F10100 00000005 00000000 00224403 00000120 00000000
00000000 00000000 00000000 00017FFF 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
%XQP, Thread #0, Control function (104564,5,0) Status: 00000001
%XQP, Thread #0, FIB contents:
00000001 0017B7AB 00000000 00000000 00000000 00000003 00000000 00000000
00000000 00000000 00000000 01030000 00000000 00000000 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
%XQP, Thread #0, FIB contents:
00000001 0017B7AB 00000000 00000000 00000000 00000003 00000000 00000000
00000000 00000000 00000000 01030000 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
%XQP, Thread #0, Volume protection: Access requested: 00000001, Status: 00000001, PrvUsd: 00000000
%XQP, Thread #0, File protection (47019,23,0): Access requested: 00000001, Status: 00000001, PrvUsd: 00000000
%XQP, Thread #0, Read attributes: Access mode LOGIN.COM;17 (47019,23,0)
%XQP, Thread #0, Read attributes: Access mode LOGIN.COM;17 (47019,23,0)
%XQP, Thread #0, Read attributes: Journal flags LOGIN.COM;17 (47019,23,0)
%XQP, Thread #0, Read attributes: RU active LOGIN.COM;17 (47019,23,0)
%XQP, Thread #0, Read attributes: Statistics block LOGIN.COM;17 (47019,23,0)
%XQP, Thread #0, Read attributes: Find ACE by type LOGIN.COM;17 (47019,23,0)
%XQP, Thread #0, Read attributes: Record attributes LOGIN.COM;17 (47019,23,0)
%XQP, Thread #0, Read attributes: User file characteristics LOGIN.COM;17 (47019,23,0)
%XQP, Thread #0, Read attributes: File length hint field LOGIN.COM;17 (47019,23,0)
%XQP, Thread #0, Access LOGIN.COM;17 (47019,23,0) Status: 00000001
%XQP, Thread #0, FIB contents:
00000001 0017B7AB 58500000 00000D10 00000000 00220003 00000120 00000000
00000000 00000000 00000000 01030000 0000FFFF 000009D8 00000000 00000000
00000000 00000000 00000000 00000000 00000120 00000000 00000000 00000000
%XQP, Thread #0, FIB contents:
00000001 0017B7AB 58500000 00000D10 00000000 00220003 00000120 00000000
00000000 00000000 00000000 01030000 0000FFFF 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
%XQP, Thread #0, Control function (47019,23,0) Status: 00000001
%XQP, Thread #0, FIB contents:
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
00000000 00000000 00000000 00030000 00000000 00000000 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
%XQP, Thread #0, FIB contents:
00000000 0017B7AB 00000000 00000000 00000000 00000000 00000000 00000000
00000000 00000000 00000000 00030000 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
%XQP, Thread #0, Deaccess (47019,23,0) Reads: 0, Writes: 0, Status: 00000001
%XQP, Thread #0, FIB contents:
00000000 0017B7AB 00000000 00000000 00000000 00000000 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
%XQP, Thread #0, FIB contents:
00000000 0017B7AB 00000000 00000000 00000000 00000000 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
%XQP, Thread #0, Volume protection: Access requested: 00000001, Status: 00000001, PrvUsd: 00000000
%XQP, Thread #0, File protection (47019,23,0): Access requested: 00000001, Status: 00000001, PrvUsd: 00000000
%XQP, Thread #0, Read attributes: Record attributes LOGIN.COM;17 (47019,23,0)
%XQP, Thread #0, Read attributes: File spec LOGIN.COM;17 (47019,23,0)
%XQP, Thread #0, Read attributes: User file characteristics LOGIN.COM;17 (47019,23,0)
%XQP, Thread #0, Lookup LOGIN.COM;17 (47019,23,0) Status: 00000001
%XQP, Thread #0, FIB contents:
00000141 00059874 D2F10100 00000005 00000000 00224403 00000120 00000000
00000000 00000000 00000000 00017FFF 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000120 00000000 00000000 00000000
%XQP, Thread #0, FIB contents:
00000141 00059874 D2F10100 00000005 00000000 00224403 00000120 00000000
00000000 00000000 00000000 00017FFF 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
%XQP, Thread #0, Control function (104564,5,0) Status: 00000001
%XQP, Thread #0, FIB contents:
00000141 00059874 D2F10100 00000005 00000000 00224403 00000120 00000000
00000000 00000000 00000000 00017FFF 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000120 00000000 00000000 00000000
%XQP, Thread #0, FIB contents:
00000141 00059874 D2F10100 00000005 00000000 00224403 00000120 00000000
00000000 00000000 00000000 00017FFF 00000000 00000001 00000000 00000000
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
%XQP, Thread #0, Control function (104564,5,0) Status: 00000001
Job _WG (queue SYS$BATCH, entry 491) holding

It seems SUBMIT will not access the procedure to retrieve its attributes??

[Willem Grooters]

device spec? possible.

System manegement found the same problem. Submitting from the login directory (on disk DISK002 works, from the application directory fails.

What is used in the filespec is actually the drive label, but somewhere, it translates differently, given the message

DISK007 (label of DSA7) ==> "DISK007"

DISK002 (label of DSA2) ==> "DISK$DISK002"

I even tried "DSA7",the physical drive, but the same problem occurs.

The message help shows the submitted file must be a disk file - perhaops, DISK007 cannot be located as a disk, in batch?

[AEFAEF]

Could it be that you have different symbols defined in batch mode than in interactive mode? Check your login scripts for this type of dependence.

$ IF (F$MODE().EQS."INTERACTIVE")
$ THEN
interactive symbols and logical names
$ ENDIF
$ IF (F$MODE().EQS."BATCH")
$ THEN
batch symbols and logical names
$ ENDIF

as a quick and dirty example.

AEF

[GuentherF]

I don't see any single quotes around the device name in the submit command (if that is correct). That excludes a symbol translation. RMS uses everything up to the first colon to do a logical name translation. Does a "SHOW LOGICAL" of that device name string work before the submit?
If that works, what about a "SHOW DEVICE/FULL "?

/Guenther

[Jess Goodman]

Your directory command shows a big clue:

Directory :[]

.COM;38 File ID: (104528,8,0)
Size: 7/101 Owner: [,]

Linkcount: 1

I know little about symbolic links since I am running VMS 7.3-2, but I bet it has something to do with your problem.

[Hoff]

The only way I know to troubleshoot this stuff is inside the DCL context in the target environment.

DCL symbols are completely context-dependent, and logical names are context- and process- and group-dependent.

The output (diagnostics) I'm asking for are only valid from inside the DCL procedure in the target context; whether or not this stuff works interactively isn't nearly as relevant as the DCL and symbol and logical name context immediately before the SUBMIT failure.

And FWIW, the log file or any other file doesn't get issued a FID until the file has been created. To see what file has that FID (if the file is still around), use DUMP /FILE=fid ddcu: on the target device.