Cloud Computing

Cloud computing may be the next big thing for computer firms but the secure cloud computing will be the next biggest issue. How are the firms going to tackle the problems?

Assessing  security risk is "the biggest issue". How do you know if your information is sitting next to your competitor's information in the same datacenter. - Bloomberg Businessweek - Oct 13th Edition

ASG - ViewDirect - U0666

04.07.23 JOB*****  IEF450I JOBNAME REPTPROC PROC020 - ABEND=S000 U0666 REASON=000000000  238

04.07.23 JOB*****  U11-656 JOBNAME=JOBNAME,STPROC=PROC020 ,STSTEP=REPTPROC,AUTO SETUP PARMS

This issue is due to an error due to corruption in archive Distribution dataset (INDIST1) which is a VSAM ESDS dataset.

When the reports are pushed into the INFOPAC, the "REPTPROC TERMINATED BY ABS" which is a unrecoverable error, This user abend code is always accompanied with messages 9998 and 9999. Refer to these messages for information about why the task was terminated. If the problem persists, contact ASG Customer Support.

Once ASG verifies the failed job log, ASG would ask for cross reference report which will be produced against the corrupted dataset. ASG will let us know about the report IDs which is not available in the distribution database.

//*********JOB TO EXECUTE THE CROSS REFERENCE REPORT ****************//
//JOBCARD
//REPTXREF PROC DISKPFX='XXX.INFOPAC',      <=== DISK DATASET PREFIX        
//         VDSNPFX='XXX.INFOPAC',           <=== VSAM DATASET PREFIX             
//         SYSOUT='*'                       <=== YOUR SYSOUT CLASS              
//REPTXREF EXEC PGM=INFOPAC7                            
//STEPLIB  DD DSN=&DISKPFX..LOADLIB,DISP=SHR            
//*        DD DSN=&LELIB,DISP=SHR                       
//INCARD1  DD *                                         
##X-REPORT    01 I01U004D                   <=== I01U004D is a sample reportID that is unavailable                            
//INDIST1  DD DSN=&VDSNPFX..INDIST1.BKP29914,DISP=SHR   
//INRPT11  DD SYSOUT=&SYSOUT                            
//INRPT21  DD SYSOUT=&SYSOUT                            
//INWORK1  DD DSN=&&INWORK1,                            
//            SPACE=(CYL,(2,1)),                        
//            UNIT=SYSDA                                
//SORTMSG  DD SYSOUT=&SYSOUT                            
//SORTMS1  DD SYSOUT=&SYSOUT                            
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(2,1))              
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(2,1))              
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(2,1))              
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(2,1))              
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(2,1))              
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(2,1))              
//SYSUDUMP DD SYSOUT=&SYSOUT                                         
//ABNLIGNR DD DUMMY                         *** THIS DD TURNS OFF ABEND-AID ***   
//         PEND                                                      

//REPTXREF EXEC REPTXREF                                             

Once the issue is identified the backup of the last best version of the INDIST1 dataset has to be restored to bring back the INFOPAC and INFORDS system back to normal. During the restore activity the Started Tasks (STCs) of both INFOPAC and INFORDS will be brought down to restore the dataset and then activate the STCs back to normal.

//***********TO RESTORE A NON CORRUPTED COPY OF THE DATASET**********//
//JOBCARD
//*                                                                     
//*********************************************************************
//*   SHUT DOWN INFOPAC ADMINISTRATIVE ONLINE VARY                    *
//*********************************************************************
//STEP010  EXEC    PGM=IEBEDIT                                         
//SYSPRINT DD      SYSOUT=*                                            
//SYSUDUMP DD      SYSOUT=D                                            
//*                                                                    
//SYSUT1   DD      DATA,                                               
//             DLM=$$                                                  
/*$VS,'VARY NET,INACT,ID=BB0XINFO,FORCE'
/*$VS,'VARY NET,INACT,ID=BB0XRDS,FORCE'                                
$$                                                                     
//*                                                                    
//*********************************************************************
//*   BACK UP INDIST1 DATA SETS                             *          
//*********************************************************************
//STEP020  EXEC    PGM=IDCAMS                                          
//SYSPRINT DD      SYSOUT=*                                            
//SYSUDUMP DD      SYSOUT=D                                            
//*                                                                    
//INDD1    DD      DSN=SYS3.INFOPAC.INDIST1,DISP-SHR                           
//OUTDD1   DD      DSN=PNTS.INFOPAC.INDIST1.BK100114,                  
//             DISP=(NEW,CATLG),                                       
//             UNIT=TAPE,                                              
//             LABEL=(1,SL),                                           
//             VOL=(,RETAIN),                                          
//             DCB=(MODELGDG,RECFM=VB,LRECL=2064,BLKSIZE=0)            
//*                                                                    
//SYSIN    DD      DSN=PROD.DATALIB(INDD1),DISP=SHR                            
//*                                                                    
//********************************************************************* 
//*   DEL/DEF INDIST1 DATA SETS                             *           
//********************************************************************* 
//STEP030  EXEC    PGM=IDCAMS                                           
//VDSBYPAS DD      DUMMY                                                
//SYSPRINT DD      SYSOUT=*                                             
//SYSUDUMP DD      SYSOUT=D                                             
//*                                                                     
//SYSIN    DD      *                                                    
   DELETE SYS3.INFOPAC.INDIST1  PURGE                                   
   SET MAXCC = 0                                                        
                                                                        
   DEFINE CLUSTER -                                                     
            (NAME(SYS3.INFOPAC.INDIST1) -                               
             NONSPANNED -                                               
             SHAREOPTIONS(4 3) -                                       
            FREESPACE(20 10) -                                         
            VOLUMES(PRD500)) -                                         
         DATA -                                                        
           (NAME(SYS3.INFOPAC.INDIST1.DATA) -                          
            CYLINDERS(800 400) -                                       
            KEYS(60 0) -                                               
            RECORDSIZE(200 1060) -                                     
            CONTROLINTERVALSIZE(4096)) -                               
         INDEX -                                                       
           (NAME(SYS3.INFOPAC.INDIST1.INDEX) -                         
            CYLINDERS(100 50) -                                        
            CONTROLINTERVALSIZE(4096))                                 
//*                                                                    
//*********************************************************************
//*   RELOAD INDIST1 DATA SETS                              *          
//*********************************************************************
//STEP040  EXEC    PGM=IDCAMS,COND=(0,NE)                              
//SYSPRINT DD      SYSOUT=*                                            
//SYSUDUMP DD      SYSOUT=D                                            
//*                                                                    
//INDD1    DD      DSN=PNTS.T30REPRO.INDIST1.G7670V00,DISP=SHR                 
//OUTDD1   DD      DSN=SYS3.INFOPAC.INDIST1,DISP=SHR                           
//*                                                                    
//SYSIN    DD      DSN=PROD.DATALIB(INDD1),DISP=SHR                            
//*                                                                    
//*********************************************************************
//*   START INFOPAC ADMINISTRATIVE ONLINE VARY ACTIVE                 *
//*********************************************************************
//STEP050  EXEC    PGM=IEBEDIT,COND=(0,NE)                             
//SYSPRINT DD      SYSOUT=*                                            
//SYSUDUMP DD      SYSOUT=D                                            
//*                                                                    
//SYSUT1   DD      DATA,                                               
//             DLM=$$                                                  
/*$VS,'VARY NET,ACT,ID=BB0XINFO'
/*$VS,'VARY NET,ACT,ID=BB0XRDS'                                        
$$                                                                      
//*                                                                     
//SYSUT2   DD      SYSOUT=(P,INTRDR),BLKSIZE=80                               
//*                                                                     
//SYSIN    DD      DUMMY                                                
//*                                                                     

MQ Commands

Stopping MQ region 

  /MQxx STOP QMGR

    This will only bring down MQxxCHIN region of the MQ region

       Manually bring down MQxxBTCH and MQxxMSTR region of the MQ

Starting MQ region
    Console command - /MQxx START QMGR PARM(xparm)
    MQ region command line - /MQxx START CHINIT PARM(xparm)
    SYSLOG command line command - /START MQxxBTMN

MVS JES commands

D A                  - DISPLAYS ACTIVITY
D ASM                - PAGE DATASET DISPLAY
D A,A                - DISPLAYS ACTIVE JOBS AND STARTED TASKS
D A,L                - DISPLAYS ACTIVE JOBS AND STARTED TASKS
D C                  - DISPLAY CONSOLES
D C,A                - DISPLAY ACTIVE CONSOLES 
D C,B                - DISPLAY CONSOLE BACKLOG
D C,CA               - DISPLAY SYSTEM CONSOLE LIST (GOOD DISPLAY)
D C,CN=(xxx)         - DISPLAY BY CONSOLE ID, NAME or RANGE
D C,L                - DISPLAY ALL CONSOLES DEFINED TO SYSPLEX
D C,SS               - DISPLAY CONSOLES SUBSYTEMS 
D C,U=xxx            - DISPLAY CONSOLE BY DEVICE NUMBER
D D,T                - DISPLAY DUMP DATASETS
D DMN                - DISPLAY DOMAIN DESCRIPTION TABLE
D GRS,A              - DISPLAY GLOBAL RESOURCE SERIALIZATION COMPLEX
D GRS,CONTENTION     - DISPLAY RESOURCE CONTENTION INFORMATION
D IOS,CONFIG         - DISPLAY LAST IOCDS UPDATE
D J,L                - DISPLAYS ACTIVE JOBS AMD STARTED TASKS
D J,JOBNAME          - DISPLAYS JOB NAME.
D J,DUMP             - CHECKS TO SEE IF A DUMP JOB IS CURRENTLY RUNNING.  
D M=CHP(XX)          - DISPLAY CHANNEL PATH
D M=CONFIG           - DISPLAY CURRENT CONFIGURATION
D M=CPU              - DISPLAYS STAUS OF PROCESSORS
D M=DEV(XXX,##)      - DISPLAYS DEVICE   
D NET,ID=XXXXXX      - REF VTAM COMMANDS
D NET,MAJNODES       - REF VTAM COMMANDS
D NET,PENDING        - REF VTAM COMMANDS
D PFK                - DISPLAY FUNCTIONS KEYS
D R,MSG=IEE,CN=(ALL) - DISPLAY ALL IEE MSG FOR ALL CONSOLES
D R,I                - DISPLAY IMMEDIATE ACTION MESSAGES
D R,U                - DISPLAY DEVICES WITH INTERVENTIONS AND MOUNTS PENDING
D R,L                - COMPOSITE OF (D R,X-D R,R-D R,I-D R,U) COMMANDS
D R,R                - DISPLAY OUTSTANDING REPLIES
D R,R,J              - DISPLAY REPLIES & JOBS FROM ORIGINATING CONSOLE WHERE ISSUED
DS P,XXX             - DISPLAYS DEVICE XXX AND PATH INFO. (DEVSERV)
D SMF                - DISPLAYS SMF DATASETS 
D SMF,O              - DISPLAYS SMF PARAMETERS
D SMS                - DISPLAYS SMS INFORMATION
D T                  - DISPLAYS TIME
D TS                 - DISPLAYS NUMBERS OF TSO USERS
D TS,L               - DISPLAYS TSO USERS
D TS,XXXXX           - DISPLAYS TSO USER XXXXX
D U,,,XXX,16         - DISPLAYS DEVICE UNIT STATUS
D U,,ALLOC,XXX,##    - DISPLAY ALLOCATION INFO FOR A DEVICE
D U,TAPE,ONLINE      - DISPLAYS ONLINE TAPE UNITS
D U,DASD,ONLINE      - DISPLAYS ONLINE DIRECT ACCESS STORAGE DEVICES 

CONFIG Commands

 CONFIG Commands:

 CF
 CF CHP(17),OFFLINE
 CF CHP(17),ONLINE
 CF CPUAD
 CF CPU(Ø1),ONLINE
 CF CPU(Ø1),OFFLINE
 CF CPU(1),ONLINE
 CF CPU(1),OFFLINE
 CF ESTOR
 CF ESTOR
 CF STORAGE
 CF STOR(E=1),ONLINE/OFFLINE
 CF VF       

 Other related commands :

 D M=CHP(XX)
 D M=DEV(XX) 

SYSPLEX COMMANDS

SYSPLEX COMMANDS

 SYSPLEX XCF DISPLAY COMMANDS
 ----------------------------

 D XCF                          - DISPLAYS STATUS OF XCF DEVICES
 D XCF,ARMSTATUS                - DISPLAYS ACTIVE REGISTERED ELEMENTS
 D XCF,CF                       - DISPLAYS COUPLING NAMES & INFO
 D XCF,CF,CFNM=####             - DISPLAYS CFRM INFO BY NAME
 D XCF,CLASSDEF                 - DISPLAYS TRANSPORT CLASSES DEFINED
 D XCF,COUPLE                   - DISPLAYS CURRENT XCF COUPLE INFO
 D XCF,GROUP                    - DISPLAYS SIGNALLING RESOURCE INFO
 D XCF,LOCALMSG                 - DISPLAYS SIGNALLING RESOURCE INFO
 D XCF,PATHIN                   - XCF SIGNALLING PATHIN STATUS
 D XCF,PATHIN,DEVICE=ALL        - XCF SIGNALLING PATHIN STATUS
 D XCF,PATHIN,STRN=ALL          - ?????  ( UPDATE THIS )  ????????
 D XCF,PATHOUT                  - XCF SIGNALLING PATHOUT STATUS
 D XCF,PATHOUT,DEVICE=ALL       - XCF SIGNALLING PATHOUT STATUS
 D XCF,POLICY                   - DISPLAYS ALL POLICY INFOMATION
 D XCF,POLICY,TYPE              - DISPLAYS SPECIFIC POLICY INFO
 D XCF,SYSPLEX ALL              - DISPLAYS ALL SYSTEMS IN SYSPLEX
 D XCF,STR=STRM=ALL             - DISPLAYS ALL STRUCTURES
 D XCF,STRUCTURE                - DISPLAYS LIST OF CFRM POLICIES

 SYSPLEX XCF SET COMMANDS
 ----------------------------

 SETXCF                         - TO CONTROL XCF (DEVICES)
 SETXCF,COUPLE,ACOUPLE=(####)   - SPECIFY ALTERNATE XCF COUPLE DATASET
 SETXCF,COUPLE,CLASSLEN=        - SPECIFY LENGTH OF TRANSPORT CLASSES
 SETXCF,COUPLE,CLEANUP=         - SPECIFY THE LENGTH OF CLEANUP *
 SETXCF,COUPLE,INTERVAL=        - SPECIFY THE LENGTH OF INTERVAL *
 SETXCF,COUPLE,MAXMSG=          - SPECIFY DEFAULT MAX MESSAGE BUFFERS
 SETXCF,COUPLE,OPNOTIFY=        - SPECIFY THE LENGTH OF XCF NOTIFY *
 SETXCF,COUPLE,PSWITCH          - SWITCH THE PRIMARY COUPLE DATASET
 SETXCF,COUPLE,RETRY=           - SPECIFY DEFAULT RETRY LIMIT *  
 SETXCF,COUPLE,TYPE=            - SPECIFY TYPE OF DATE STORED *
 SETXCF,FORCE,CON               - REMOVES THE ALLLOCATION
 SETXCF,MODIFY,-----            - CHANGES CURRENT XCF PARAMETERS
 SETXCF,PRSMPOLICY,------       - ACTIVATE/DEACTIVATE PR/SM POLICY
 SETXCF,START,ALTER,-----       - SPECIFY STRUCTURE TO ALTERED
 SETXCF,START,CLASSDEF,-----    - SPECIFY DEFINITION OF TRANSPORT CLASS
 SETXCF,START,REBUILD,STRNAME,  - SPECIFY STRUCTURE TO BE REBUILT
 SETXCF,START,PATHIN,-----      - START SIGNALING PATHS AND DEFINE *
 SETXCF,START,PATHOUT,-----     - START SIGNALING PATHS AND DEFINE *
 SETXCF,START,POLICY,TYPE=      - SPECIFY NAME USING COUPLE DATASET
 SETXCF,START,POLICY,POLNAME=   - TO ACTIVATE POLICY BY NAME
 SETXCF,STOP,ALTER,-----        - SPECIFY STRUCTURE ALTERNING TO STOP
 SETXCF,STOP,CLASSDEF,-----     - DELETE DEFINITION OF TRANSPORT CLASS
 SETXCF,STOP,REBUILD,STRNAME,   - SPECIFY STRUCTURE REBUILT TO STOP
 SETXCF,STOP,PATHIN,-----       - STOP SIGNALING PATHS AND DEFINE *
 SETXCF,STOP,PATHOUT,-----      - STOP SIGNALING PATHS AND DEFINE *
                                                                    

SILO COMMANDS

SILO COMMANDS


 :CL                  = SHOULD CLEAN AUTOMATICALLY
 :D ACS               = DISPLAYS ACS STATUS
 :D ALL               = DISPLAY SILO STATUS
 :D CAP               = DISPLAYS CAP STATUS
 :D CMD cmdname       = DISPLAY HELP FOR HSC COMMAND
 :D DRIVES            = DRIVES WITH TAPES
 :D L                 = AVAILABLE SLOTS
 :D LSM,ØØ4           = DISPLAYS ??????
 :D M XXX             = DISPLAYS MESSAGE NUMBER XXX.
 :D REQUESTS          = DISPLAYS REQUESTS
 :D SCR               = DISPLAYS SCRATCH STATUS
 :D STATUS            = DISPLAYS PENDING REQUESTS 
 :D V #######         = DISPLAY VOLSER CELL LOCATION 
 :DISM ###### xxx     = DISMOUNT DEVICE
 :DRA ØØØ             = DRAINS CAP
 :DRA (ØØ3:ØØ,ØØ3:Ø1) = DRAINS CAP 00 & 01 ON LSM 3
 :EJ XXXXXXX          = EJECTS TAPE #XXXXXXX
 :EN ###:##           = OPENS CAP DOOR 
 :F LSM 005,on/off    = VARIES LSM 005 ON/OFFLINE
 :LO SLSMDQR          = DISPLAYS SILOS AND TAPES MOUNTED
 :M XXXXXX DDD        = MOUNTS TAPE XXXXX ONTO ASC ADDRESS DDD.             
 :M PRIVAT DDD        = MOUNTS PRIVATE TO DEVICE 
 :MOD ### OFF         = VARIES LSMid OFFLINE
 :REL ###:##          = FREES CAP
 :SEN ###:##          = SCHEDULE AN ENTER 
 :VIEW                = USED FOR CAMERA



 EXTRAS :


 :CAPPREF      = CAP PREFERENCES.
 :DRA (ØØ3:ØØ,ØØ3:Ø1) - DRAINS CAPS ØØ AND Ø1 ON LSM ØØ3
 :EJ 123456 ØØ1:ØØ
 :EJ 123456 ØØ1;ØØ
 :EN ØØ3
 :EN ØØ2:ØØ
 :REL Ø13:Ø3 - FREES THE PCAP ON LSM Ø13
 :SEN ØØ7:Ø1 - SCHEDULES AN ENTER ON CAP Ø1 ON LSM ØØ7
 :VIEW CAP(ØØ4:Ø1) ROW(38) COL(Ø) TIME(9Ø)

VTAM & TCP/IP Commands

DISPLAY COMMANDS

/D NET,CDRMS ................ Displays the status of active cross-domain resource manager (CDRM) major nodes and their subordinate minor nodes.

/D NET,ID ................... Displays information about a particular active major node, minor node, or directory entry.
/D NET,MAJNODES ............. Displays the status of all active major nodes in the domain.
/D NET,PENDING .............. Displays information about resources in the domain that are in a "pending" state. A resource can be a major node, a minor node, an application program, a PU, or an LU.
/D NET,STATIONS ............. Displays the status of all cross-subarea link stations for active major nodes.
/D NET,ID ................... Displays information about a particular active major node, minor node, or directory entry.
/D NET,TRL .................. Displays infomration about Transport Resource List
/D NET,TGPS ................. Displays transmission group profiles
/D NET,COS,TYPE=APPN ........ Displays APPNs class of service table
/D NET,CSM,OWNERID=ALL ...... Displays CSM definitions (Incase of modification do in SYS1.PARMLIB(IVTPRM00) member)
/D NET,TOPO,LIST=NN ......... Displays NN nodetype information of the Enterprise extender
/D NET,CPCP ................. Displays information about CP-CP sessions of primary NNs

 DISPLAY SYNTAX

 D NET,ID=nodename            = Regular Display
 D NET,ID=nodename,SCOPE=ALL  = Display all sessions

-------------------------------------------------------------------------------

 VARY COMMANDS

 VARY ACT..... The VARY ACT (activate) command activates VTAM resources.
 VARY INACT... The VARY INACT command deactivates VTAM resources.

 VARY SYNTAX

 V NET,ACT,ID=nodename                 = To Vary a Node Active
 V NET,ACT,ID=nodename,SCOPE=ALL       = To Vary all undelying sessions Active

 V NET,INACT,ID=nodename               = To Vary a Node In-Active
 V NET,INACT,ID=nodename,SCOPE=ALL     = To Vary all undelying sessions In-Active

 V NET,REF,ACT,ID=nodename             = To Vary all undelying sessions In-Active
 V NET,ACQ,ACT,ID=nodename             = To Vary all undelying sessions In-Active

-------------------------------------------------------------------------------

Operand                            Abbreviation

DISPLAY                            D            
SCOPE=ACT                          ACT or A    
SCOPE=ACTONLY                      ACTONLY      
SCOPE=ACTSESS                      ACTSESS      
SCOPE=ALL                          EVERY or E  
SCOPE=CONCT                        CONCT        
SCOPE=INACT                        INACT or I  
SCOPE=INACTONLY                    INACTONL    
SCOPE=PENDING                      PEND        
SCOPE=RESET                        RESET        
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

D NET,ADJSSCPS 
D NET,APINGDTP
D NET,APINGTP 
D NET,APPLS
D NET,AUTOLOG 
D NET,CDRMS
D NET,CDRSCS 
D NET,CLSTRS
D NET,CPCP 
D NET,DIRECTRY,ID=*.name
D NET,EE 
D NET,EEDIAG
D NET,EXIT 
D NET,GRAFFIN
D NET,GROUPS 
D NET,INOPCODE
D NET,LINES 
D NET,LUGROUPS,SCOPE=ALL
D NET,MAJNODES 
D NET,PATHTAB
D NET,PENDING 
D NET,RSCLIST
D NET,RTPS 
D NET,SESSIONS,LIST=ALL
D NET,SRCHINFO 
D NET,STATIONS
D NET,STATS 
D NET,STORUSE
D NET,TABLE,SCOPE=ALL 
D NET,TERMS
D NET,TGPS 
D NET,TOPO,LIST=UNRCHTIM
D NET,TRL 
D NET,USERVAR

This below command displays whether the destination is available in the transmission database and is connecting to the Mainframe VTAM. Also shows which PU definitions holds the information for connectivity.

/D NET,TOPO,ORIG=sscp1,DEST=rtcf4100 

TCP/IP COMMANDS:

DISPLAY COMMANDS:

/D TCPIP ....................... To display the TCPIP name defined to the system
/D TCPIP,tcpipname,N,HOME ...... List the home address list with link name
/D TCPIP,tcpipname,N,ROUTE .....
/D TCPIP,tcpipname,N,STATS ..... List IP, ICMP, TCP, UDP statistics
/D TCPIP,tcpipname,OMP,RTTABLE . List all OSPF routing table information