DB2 11 for z/OS manual

The good manual "DB2 11 for z/OS: Introduction to DB2 for z/OS." This is a good document for anyone who needs to learn the terminology and understand the architecture of DB2 for z/OS.

Open Source Hardware

Refer to Adafruit web site to get more information

Solar tracking system information

Circuit Components -1x Comparator – LM339D -4x Resistor – 10k -3x Resistor – 100k -2x Resistor – 2.2k -1x Resistor – 3.3k -2x Photo Transistor -2x PNP MOSFET – IRF5305 -2x NPN MOSFET – IRF3205 -1x Blocking Diode – BAT54 Web site information: http://greentechtown.com http://solartechtown.com/?p=811

RACF database records type

/* RACF database record types:*/
/* 0100   GROUP basic */
/* 0101   GROUP subgroup */
/* 0102   GROUP members */
/* 0103   GROUP instate */
/* 0110   GROUP DFP */
/* 0120   GROUP OMVS */
/* 0130   GROUP OVM */
/* 0141   GROUP TME Role @LIA*/
/* 0151   GROUP CSDATA (new) @M7A*/
/* 0200   USER basic */
/* 0201   USER category */
/* 0202   USER classauth */
/* 0203   USER-group connection (ignored; 0205 used instead) */
/* 0204   USER instate */
/* 0205   USER connect */
/* 0206   USER associations */
/* 0207   USER certificate data @LLA*/
/* 0208   USER associated mappings @LUA*/
/* 0210   USER DFP */
/* 0220   USER TSO */
/* 0230   USER CICS */
/* 0231   USER CICS opdata */
/* 0232   USER CICS RSL key info @M5A*/
/* 0233   USER CICS TSL key info @M5A*/
/* 0240   USER LANGUAGE */
/* 0250   USER OPERPARM */
/* 0251   USER OPERPARM SCOPE */
/* 0260   USER WORKDATA */
/* 0270   USER OMVS */
/* 0280   USER NETVIEW */
/* 0281   USER NETVIEW operator classes */
/* 0282   USER NETVIEW domains */
/* 0290   USER DCE */
/* 02A0   USER OVM */
/* 02B0   USER LNOTES */
/* 02C0   USER NDS @LKA*/
/* 02D0   USER KERB @LRA*/
/* 02E0   USER PROXY data @LTA*/
/* 02F0   USER EIM data @LZA*/
/* 02G1   USER CSDATA (new) @M7A*/
/* 0400   DATASET basic */
/* 0401   DATASET DATASET categories */
/* 0402   DATASET conditional access list */
/* 0403   DATASET volumes */
/* 0404   DATASET access list */
/* 0405   DATASET instdata */
/* 0410   DATASET DFP */
/* 0421   DATASET TME roles @LIA*/
/* 0500   general basic */
/* 0501   general TVTOC */
/* 0502   general categories */
/* 0503   general members */
/* 0504   general volume */
/* 0505   general access list */
/* 0506   general instdata */
/* 0507   general conditional access list */
/* 0508   general filter data @LUA*/
/* 0510   general SESSION */
/* 0511   general SESSION (ignored; obsolete) */
/* 0520   general DLF */
/* 0521   general DLF jobs */
/* 0540   general STDATA */
/* 0550   general System View */
/* 0560   general certificate data @LLA*/
/* 0561   general certificate references record @LLA*/
/* 0562   general keyring @LLA*/
/* 0570   general TME @LIA*/
/* 0571   general TME child @LIA*/
/* 0572   general TME resource @LIA*/
/* 0573   general TME group @LIA*/
/* 0574   general TME role @LIA*/
/* 0580   general KERB data @LRA*/
/* 0590   general PROXY data @LTA*/
/* 05A0   general EIM data @LZA*/
/* 05B0   general ALIAS data (ignored) @M0A*/
/* 05C0   general CDTINFO @M7C*/
/* 05D0   general ICTX (new) @M7A*/
/* 05E0   general CFDEF (new) @M7A*/

IBM z/OSMF V1R13 Introduction

Print running jobs and their elapsed times

/* Rexx - Print running jobs and their elapsed times                 */ 
Numeric digits 20                                                        
cvt=ptr(16)                            /* Get CVT                    */ 
asvt=ptr(cvt+556)+512                  /* Get asvt                   */ 
rmct=ptr(cvt+x2d('25c'))                                                
asvtmaxu=ptr(asvt+4)                   /* Get max asvt entries       */ 
Do a = 0 to asvtmaxu - 1                                                
  ascb=stg(asvt+16+a*4,4)              /* Get ptr to ascb (Skip          
                                          master)                    */ 
  If bitand(ascb,'80000000'x) = '00000000'x Then /* If in use        */ 
    Do                                                                  
      ascb=c2d(ascb)                   /* Get ascb address           */ 
      cscb=ptr(ascb+56)                /* Get CSCB address           */ 
      chtrkid=stg(cscb+28,1)           /* Check addr space type      */ 
      ascbjbni=ptr(ascb+172)           /* Get ascbjbni               */ 
      If chtrkid='03'x & ascbjbni<>0 Then                                
        Do                                                              
          oucbomvs = bitand(stg(37+ptr(ascb+144,4),1),'10'x)            
          if oucbomvs ='00'x then                                        
            do                                                          
              ascbints = stg(ascb+304,4) /* job selection time       */ 
              rmcttoc = stg(rmct+128,4) /* rmf current time          */ 
              delta=((c2d(rmcttoc)-c2d(ascbints))*1.048576)%1 /* secs*/ 
              hh=delta %3600                    /* Get # of hours    */ 
              mm=right((delta//3600)%60,2,'0')  /* get # of minutes  */ 
              ss=right((delta//3600)//60,2,'0') /* get # of seconds  */ 
              Say stg(ascbjbni,8) delta 'sec ('hh':'mm':'ss')'          
            end                                                          
        End                                                              
    End                                                                  
End                                                                      
Return                                                                  
/*-------------------------------------------------------------------*/ 
ptr:  Return c2d(storage(d2x(Arg(1)),4))     /* Return a pointer */      
/*-------------------------------------------------------------------*/ 
stg:  Return storage(d2x(Arg(1)),Arg(2))     /* Return storage */

Smallest Mainframe

Lego z114 mainframe as link