CA IDMS IUA EIUA

Expand all | Collapse all

Simulate during CV start-up

Jump to Best Answer
  • 1.  Simulate during CV start-up

    Posted 08-01-2018 10:54 AM

    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



  • 2.  Re: Simulate during CV start-up

    Posted 08-01-2018 04:43 PM

    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                                           



  • 3.  Re: Simulate during CV start-up

    Posted 08-01-2018 10:26 PM

    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



  • 4.  Re: Simulate during CV start-up

    Posted 08-02-2018 01:31 AM

    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



  • 5.  Re: Simulate during CV start-up

    Posted 08-02-2018 08:11 AM

    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  
    *+       ;                                                                                                                                        



  • 6.  Re: Simulate during CV start-up

    Posted 08-03-2018 02:10 PM

    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. " 



  • 7.  Re: Simulate during CV start-up

    Posted 08-03-2018 02:22 PM

    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. 



  • 8.  Re: Simulate during CV start-up
    Best Answer

    Posted 08-06-2018 09:00 AM

    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