IDMS

My CV's address space/started task is started via JCL with a PGM=IDMSDC (or PGM=RHDCOMVS). I specify a SIMIN1 DD so the job executes the equivalent of a DC/UCF SIMULATE under PGM=UCFBTCH. We use this Simulate in order to execute some DCMT commands when the system starts (I assume so that we can change things on the fly as opposed to having them in the sysgen). I have found that when executed in the PGM=RHDCOMVS step, I must issue a login using the following commands (not unlike what I would do If logged into IDMS via 3270 session):

MAXTERM=1 NOTRACE
SIMSGON
     <ID>
     <password>
%ENTER
%ENTER
DCMT V SNAP SYSTEM ON

DCMT V TRACE TABLE SIZE 8MB
DCMT V SYSTRACE ON
DCMT V PROG AGC1B009 PROGRAM CHECK THRESHOLD 255

%ENTER 

BYE

Of course the DCMT V SNAP SYSTEM OFF, etc. are the DCMT commands I want to execute.

Currently we have a project to change the ID in ACF2 to not require a password. And now I am not able to find a way to get logged into simulate.

So my question is 2-fold:

1. Is simulate the best way to make quick changes like the DCMT V SNAP SYSTEM OFF when starting my CVs? Is there another way to do it that doesn't require Simulate?

2. Is it possible to execute Simulate under RHDCOMVS without a password (or without issuing the SIMSGON with ID and password). I have found that SIGNON can be used in place of SIMSGON - not sure of the difference.

-paul

Hi Paul,

I do not see why you would need to use a SIM line (Type S3270Q) as you appear to be just issuing DCMT commands and do not require any 3270 simulation to issue DCMTs (Line type INOUTL would work fine) but whether you need a valid signon or not is dependent on whether the Tasks you execute from the input dataset are secured.   If TASK DCMT is not secured and you have no #CTABGEN security on the specific DCMT commands you want to issue after startup then you do not require a signon.  If they are secured then you need a valid signon and the userid must hold the relevant privileges.

   I don't know what your task SIMSGON invokes or why you would need something other than the standard signon task that invokes RHDCSNON.

Here's a display of my INOUTL line:

      D LINE SYSIO1                                                           
     *** Physical Line Display ***                                            
PLine-ID SYSIO1                                                               
  Status InSrv                                                                
  Module 0B                                                                   
 DDNAME1 SYSIN1                                                               
 DDNAME2 SYSOUT1                                                              
LTerm-ID PTerm-ID Type/M Status Term-ID    FES-ID   UCF-Stat UCF-Mode         
SYSIOL1  SYSIOP1  INOT 0 Discon                                               
V1900  ENTER NEXT TASK CODE:     CA IDMS RELEASE 19.0 TAPE GJJ04I node SYST1900

Here are the DDs in my startup JCL 
//SYSIN1   DD DSN=MEN.C5100.PHILESP.SYSIN1,DISP=SHR
//SYSOUT1  DD SYSOUT=*            

Here are the contents of the input DSN  (can be any DCMT commands or any online tasks that don't use Maps:

> MEN.C5100.PHILESP.SYSIN1                               
>      <...+....1....+....2....+....3....+....4....+....5.
        =============================== T O P ============
000001 SIGNON PHILESP                                    
000002 DCMT D AREA EMPDEMO.EMP-DEMO-REGION               
000003 BYE                                           

Our shop has used ops/mvs to execute a clist thru the console line when a certain point in the startup is reached (maybe enter next task code)

You might also define a startup autotask to execute a clist

Chris Hoelscher

Technology Architect, Database Infrastructure Services

Technology Solution Services

Humana Inc.

123 East Main Street

Louisville, KY 40202

Humana.com

(502) 476-2538 or 407-7266

We include in the WTOEXIT code, a check on DC013005 message when a UCFBTCH job is submitted

+IDMS DC013005 V1 T0 CENTRAL VERSION INITIALIZATION COMPLETE
+IDMS DC074100 V1 T0 V1 Release R19.0 GA >>> JIS Development CV <<<  Enter Next Code

LA       R15,RUNAJNL
CLC     WTOMTEXT(13),=C'IDMS DC205003'    IF JOURNAL MESSAGE
BE       SAVEREGS
LA       R15,RUNSTRT
CLC     WTOMTEXT(13),=C'IDMS DC013005'    STARTUP MESSAGE
BE       SAVEREGS
LA       R15,TSTFULL
CLC     WTOMTEXT(13),=C'IDMS DC050001'    IF LOG MESSAGE
BE       SAVEREGS

RUNSTRT  LA     R0,0
                   L      R15,=A(SETAMODE)
                  BALR   R14,R15
                  OPEN (JESRDR,(OUTPUT))
                  OPEN (STRTJOB,(INPUT))
NEXTSTRT GET  STRTJOB,CARD
                  PUT  JESRDR,CARD
                  B    NEXTSTRT

CV start-up job

//AJNLJOB  DD   DSN=IDMSR.DEV.PRODJCL(IDMSRJNL),DISP=SHR
//PLOGJOB  DD   DSN=IDMSR.DEV.PRODJCL(IDMSRLOG),DISP=SHR
//STRTJOB  DD   DSN=IDMSR.DEV.PRODJCL(IDMSTART),DISP=SHR

IDMSR.DEV.PRODJCL(IDMSTART)
********************************* Top of Data **************************
//IDMSDUCF JOB (SN753S,IDMSXUCF),'DBA',MSGCLASS=Y,CLASS=P,TIME=1440
//JOBPROC JCLLIB ORDER=(IDMSR.PROCLIB)
//*---------------------------------------------------------------------
//* LIBRARY: IDMSR.DEV.PRODJCL
//* PURPOSE: THIS JOB IS SUBMITTED AT STARTUP.  IT TURNS SNAPS OFF
//*          AND PERFORMS OTHER FUNCTION
//*---------------------------------------------------------------------
//*
//UCFBTCH1 EXEC UCFBTCH,CV=DEV,SYST='IDMSR'
//UCFBTCH.SYSIPT   DD DSN=IDMSR.COMMON.SRCLIB(DCMTCMDS),DISP=SHR

We use the same INOUTL method Brian showed.  We created a special user ID, it's sole purpose is to execute the commands and that is all the authority the ID has.

ie  cmd parm

SIGNON  IDSTRT2 XXXXXXXX

*/*
*||  Start up background processor, timed tasks, PBX  and alphapager    
**/                                                                     
   DCMT V TA GSP10008 ENA                                               
   DCMT V PR GSP10008 ENA                                               
   GSP10008                                                             

ocf

DIS USER IDSTRT2;                                              
*+ Status = 0        SQLSTATE = 00000                          
*+   CREATE USER "IDSTRT2"                                     
*+       USER IS ACTIVE                                        
*+       NAME 'DATA BASE'                                      
*+       PASSWORD NOT ASSIGNED                                 
*+       PROFILE NULL                                          
*+       DATE CREATED 1996-04-11-08.30.24.477445 BY TSDSLR     
*+       DATE LAST UPDATED 1996-04-11-08.30.24.477445 BY TSDSLR 
*+       WITHIN GROUP DCMTID                                   
*+       ;                                                     

DIS GROUP DCMTID;                                             
*+ Status = 0        SQLSTATE = 00000                         
*+   CREATE GROUP "DCMTID"                                    
*+       GROUP IS ACTIVE                                      
*+       DESCRIPTION 'PROD IDS WITH DCMT CAPABILITY'          
*+       DATE CREATED 1993-02-10-11.58.01.587770 BY TSDJSD    
*+       DATE LAST UPDATED 1996-04-11-08.35.10.102095 BY TSDSLR
*+       ADD USER OPER                                        
*+       ADD USER ID07HOTB                                    
*+       ADD USER ID01HOTB                                    
*+       ADD USER IDSTRT2                                     
*+       ADD USER IDSTRT                                      
*+       ADD USER OPER12                                      
*+       HOLDS EXECUTE PRIVILEGES ON ACTIVITY DCMT.CLASS_007  
*+       HOLDS EXECUTE PRIVILEGES ON ACTIVITY DCMT.CLASS_008  
*+       HOLDS EXECUTE PRIVILEGES ON ACTIVITY DCMT.CLASS_009  
*+       ;                                                                                                                                        

Paul,

  You emailed me directly but we should keep this in the community post unless you want to open a case.

  your email:

I created the following:

ADD LINE INOUTL1                 

       ENABLED                      

       NOCOMPACT                    

       PROTOCOL IS DEFRESP          

       TYPE IS INOUTL               

       INPUT DDNAME IS INOUTIN      

       OUTPUT DDNAME IS INOUTOUT    

       .                            

   ADD PTERM PINOUTL1                 

       ENABLED                        

       IN LINE INOUTL1                

       TYPE IS INOUTT     

       .                 

   ADD LTERM LINOUTL1                

       ENABLED                       

       PRIORITY IS 0                 

       PTERM IS PINOUTL1             

       .                             

And my INOUTIN DD has the following contents (the IDMS start-up job runs under TIDMSD2 ID as well and does not require a password (from ACF2 perspective.)

SIGNON TIDMSD2                     

%ENTER                             

%ENTER                             

%ENTER                             

DCMT D AREA EMPDEMO.EMP-DEMO-REGION

%ENTER                             

DCMT V SNAP SYSTEM ON              

DCMT V LIMITS ONLINE DIS           

BYE                                

My CV starts, of course, but the DCMT commands don’t run because it is looking for a password (which ACF2 says is not required for this ID – the job runs with /*USERID TIDMSD2 and no password). Here are the messages I get.

V4  ENTER NEXT TASK CODE:      CA IDMS release 18.5 tape GJI50B node IDMSDCD

?                                                                            

IDMS DC258002 V4 ENTER PASSWORD                                             

?                                                                           

IDMS DC259001 V4 USER TIDMSD2 SIGNED OFF LTERM LINOUTL1 AT 13:23:45.94 18.215

IDMS DC021109 V4 PASSWORD MISSING OR INVALID                                

IDMS DC258002 V4 ENTER PASSWORD                                             

?                                                                           

IDMS DC021109 V4 PASSWORD MISSING OR INVALID                                

IDMS DC258002 V4 ENTER PASSWORD                                             

?                                                                            

IDMS DC021109 V4 PASSWORD MISSING OR INVALID                                

IDMS DC258005 V4 PASSWORD RETRY THRESHOLD EXCEEDED                          

ACF01006 A PASSWORD IS NOT ALLOWED FOR LOGONID TIDMSD2                      

ACF01006 A PASSWORD IS NOT ALLOWED FOR LOGONID TIDMSD2                      

ACF01006 A PASSWORD IS NOT ALLOWED FOR LOGONID TIDMSD2                      

V4  ENTER NEXT TASK CODE:      CA IDMS release 18.5 tape GJI50B node IDMSDCD

?                                                                           

PREVIOUS TASK ABENDED WITH ABEND CODE D002 AND MESSAGE CODE 021102          

IDMS DC021102 V4 SECURITY VIOLATION BY USER ***.                            

                 ACCESS TO RESOURCE DCMT DENIED.                            

There is some irony in the fact that it prompts for password 3 times and I don’t supply one then ACF2 tells me a password is not allowed.

I tried the same thing but with no SIGNON TIDMSD2 at the top as follows and I get different errors.

DCMT D AREA EMPDEMO.EMP-DEMO-REGION  

%ENTER                               

DCMT V SNAP SYSTEM ON                 

DCMT V LIMITS ONLINE DIS             

BYE                                  

Errors as follows:

V4  ENTER NEXT TASK CODE:      CA IDMS release 18.5 tape GJI50B node IDMSDCD

?                                                                          

PREVIOUS TASK ABENDED WITH ABEND CODE D002 AND MESSAGE CODE 021102         

ACF04056 ACCESS TO RESOURCE DCMT TYPE RIKC BY TIDMSD2 NOT AUTHORIZED       

IDMS DC021102 V4 SECURITY VIOLATION BY USER TIDMSD2.                       

                 ACCESS TO RESOURCE DCMT DENIED.                           

V4  ENTER NEXT TASK CODE:      CA IDMS release 18.5 tape GJI50B node IDMSDCD

I think I like the second situation better but am not sure if I want to make the ACF2 changes necessary for this TYPE RIKC – which I am not sure how this became an RIKC TYPE when I am executing DCMT with TYPE IAC. (I admit I only know how to dig around in ACF2, not enough to understand how it all fits together. My ACF2 admin is asking if I want to define DCMT as a “restricted” IDMS resource transaction/command. I don’t know if I do or not.

Paul

I don't know ACF2 to explain the different TYPE,  but I have a guess about the apparent attempt to ask for password (although I was not aware you could define a USER in ACF2 without a password). 

Do you have OPT00220  ON?  This is an optional that forces prompt for password

"THIS  APAR  WILL  FORCE  SIGNON  TO  PROMPT  FOR  A
PASSWORD TO BE ENTERED IN A DARKENED FIELD AND WILL
IGNORE ANY PASSWORD SUPPLIED WITH THE SIGNON  TASK.
IT WILL NOT CHANGE  THE NUMBER OF RETRIES.  WE WILL
ALLOW 3 RETRIES BEFORE ABORTING THE SIGNON ATTEMPT. " 

It appears you don't need a SIGNON (or any SIM commands like %ENTER since you are not using SIM line) because it will do an automatic signon with CV job userid which apparently is the one you want but the following msgs indicate that Userid TIDMSD2 does not hold the relevant privilege in ACF2 for Task DCMT.   

PREVIOUS TASK ABENDED WITH ABEND CODE D002 AND MESSAGE CODE 021102         

ACF04056 ACCESS TO RESOURCE DCMT TYPE RIKC BY TIDMSD2 NOT AUTHORIZED       

IDMS DC021102 V4 SECURITY VIOLATION BY USER TIDMSD2.                       

                 ACCESS TO RESOURCE DCMT DENIED.                     

You may need a case to pursue this.  Would need to see SRTT and maybe ACF2 case if it issues an error for a different TYPE (EXTCLS from SRTT) than what you specify in SRTT. 

We use a IDMS-DC program that does a signon to the CV system by linking to RHDCSNON WITH a hard-coded user
id and password.  this provides a way to run UCF batch jobs without displaying a password in the input.  We put task code as the first line in the input to the UCF batch job and follow with DCMT commands. See output below:

GETON                                                                         
ICH70001I IDMSLO   LAST ACCESS AT 01:43:29 ON WEDNESDAY, AUGUST 1, 2018        
IDMS DC999033 V1 SIMULATE USER IDMSLO HAS BEEN LOGGED ONTO TERMINAL UCFLT01    
V1  ENTER NEXT TASK CODE:      CA IDMS release 19.0 tape GJJ00B node PCV1      
?                                                                              
DCMT V SEGMENT SFSCHEMA UPDATE                                                 
---------- Area -----------   Lock    Lo-Page    Hi-Page #Ret  #Upd #Tret #Ntfy
SFSCHEMA.SFREALM01             Upd          1       2880    0     0     0     0
 Stamp: 2015-02-19-07.56.46.847321  Pgrp:  12      NoShare  NoICVI  NoPerm