Hi Team,
Please, try to help me on this:
CMOD: V10R5M0
EXIT: ARS.PTGN
The ARS.PTGN was successful implemented and tested in the following situations:
1- Executing ARSIVPJ1 with NO User & NO Pw:
SDSF OUTPUT DISPLAY ARSIVPJ1 JOB24378 DSID 3 LINE 28 COLUMNS 02-
COMMAND INPUT ===> SCROLL ===> C
J E S 2 J O B L O G -- S Y S T E M L 1 @
08.36.29 JOB24378 IRR010I USERID D003548 IS ASSIGNED TO THIS JO 08.36.29 JOB24378 ICH70001I D003548 LAST ACCESS AT 07:41:40 ON T
08.36.29 JOB24378 $HASP373 ARSIVPJ1 STARTED - INIT 5 - CLASS A
08.37.26 JOB24378 $HASP395 ARSIVPJ1 ENDED - RC=0000
IEFC653I SUBSTITUTION JCL - 10130MVS,'ELIFM',MSGLEVEL=(1,1),MSGCLA
2 //PROCESS OUTPUT DEFAULT=YES,CLASS=*,JESDS=ALL,OUTDISP=HOLD
3 //STEP1 EXEC PGM=ARSLOAD,REGION=0M,
// PARM=('/-h ARCHIVE -n -v -s OBJINPT
// -Z ivp -g "ARSIVPR1" tempname')
//** NOTE(ELI): THE USER & PW ARE NOT NEEDED - USING ARS.PTGN EXIT
2- Starting Proc ARSYSPIN as a PROTECTED USER
J E S 2 J O B L O G -- S Y S T E M L 1 @ @ -- N O D E S B R Y S L 1
--- THURSDAY, 19 AUG 2021 ----
IEF695I START ARSYSPIN WITH JOBNAME ARSYSPIN IS ASSIGNED TO USER ARSUSER , GROUP CMODGRP
$HASP373 ARSYSPIN STARTED
IEF403I ARSYSPIN - STARTED - TIME=07.53.30
ARS4336I The ARSYSPIN instance ARCHIVE is ready
N JOB MSGLEVEL=1 STC24350 ARSY0103I <*NOSPINDELAY=
ARSY0103I < ODHOST=ARCHIVE
ARSY0103I < ODINSTANCE=ARCHIVE
ARSY0103I <*ODUSER=ODADMIN
ARSY0103I <*ODUSERPW=********
=====
The problem is that when starting the ARSLOAD started task Procedure, the job fails with rc=6 and the msg:
IEF695I START ARSLOAD WITH JOBNAME ARSLOAD IS ASSIGNED TO USER ARSUSER , GROUP CMODGRP
$HASP373 ARSLOAD STARTED
IEF403I ARSLOAD - STARTED - TIME=08.20.11
IEF404I ARSLOAD - ENDED - TIME=08.20.12
$HASP395 ARSLOAD ENDED - RC=0006
...
ARS1607E The OnDemand stash file >< either does not exist or is not valid.
The question is: Why the ARSLOAD when executing through a Batch JCL, with no USER and no PASSWORD is exploiting the ARS.PTGN exit and when executing through a Started Task Procudure (/S ARSLOAD) is not exploiting the PTGN exit ?
============
Here is how the EXIT, the PTKTDATA profile and the ARSLOAD PROC are defined:
EXIT:
D PROG,EXIT,EXITNAME=ARS.PTGN,DIAG
CSV464I 10.43.08 PROG,EXIT DISPLAY 279
EXIT ARS.PTGN
MODULE STATE EPADDR LOADPT LENGTH JOBNAME PARAM
ARSPTGN A 96C96038 16C96038 00000210 *
RACF PTKTDATA Profile:
********************************* Top of Data ************
CLASS NAME
----- ----
PTKTDATA ARSSOCKD
LEVEL OWNER UNIVERSAL ACCESS YOUR ACCESS WARNING
----- -------- ---------------- ----------- -------
00 MVSPGR3 NONE NONE NO
INSTALLATION DATA
-----------------
ARSLOAD PROC:
//ARSLOAD PROC
//ARSLOAD EXEC PGM=ARSLOAD,REGION=0M,TIME=NOLIMIT,
// PARM=('/-h ARCHIVE -C Q')
//* PARM=('/-h ARCHIVE -C Q')
//STEPLIB DD DISP=SHR,DSN=CMOD.IODNNL1.SARSLOAD
// DD DISP=SHR,DSN=DBDCSUP.DB2.SL1DSNP.SDSNEXIT
// DD DISP=SHR,DSN=DBDCMAST.DB2.SL1.SDSNLOAD
// DD DISP=SHR,DSN=DBDCSUP.DB2.SL1DSNP.SDSNLOD2
// DD DISP=SHR,DSN=SYS1.SAPKMOD1
//SYSPRINT DD SYSOUT=*,RECFM=FBA,LRECL=121,BLKSIZE=6050
//SYSOUT DD SYSOUT=*
=======
Best regards,
Eli F. Martins