Home The Company Publications Products Links Tips Jobs

ADASEL

Select Protection Log

By Dieter W. Storr

Last update: 4 January 2007

Search and display changed or deleted Natural programs

Natural DDM

KEY A18 = library(A8)/pgm-name(A8)/sequence#(A2)
 	T L  DB  Name                             F Leng  S D
 - -  --  -------------------------------- - ----  - -
   1  LJ  SRC-KEY                          A   18  N D      
          HD=Source Object Key                        
 *        Natural source object key.                  
 M 1  LK  SRC-TEXT                         A   90  N  
          HD=Source Object Text                       
 *        Natural source object text.                 
   1  LL  CAT-KEY                          A   18  N D
          HD=Cataloged Obj. Key                       
 *        Natural cataloged object key                
 M 1  LM  CAT-TEXT                         A  250  N  
          HD=Cataloged Object Text                    
 *        Natural cataloged object tex                

ADASEL: select and display deleted Natural programs

//SELECT   EXEC ADASEL                                                 
//DDSIIN   DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4242V00
//         DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4243V00
//         DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4244V00
//         DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4245V00
//         DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4246V00
//DDKARTE  DD *
SET GLOBALS LS=132 PS=62                                                           
SELECT DELETED RECORDS FROM FILE 008                                   
STARTING FROM 20061229/000000                                          
ENDING AT     20061231/240000                                          
        DISPLAY                                                        
          ISN                                                          
          USERID                                                       
          LJ                                                           
          LK(1)                                                        
          LL                                                           
          LM(1)                                                        
END                                                                    

ADASEL DDDRUCK output of deleted Natural programs (before images BI)

SEL070-PROCESSING REQUEST STATEMENTS--  
                                        
SET GLOBALS LS=132 PS=62                
SELECT DELETED RECORDS FROM FILE 008    
STARTING FROM 20061229/000000           
ENDING AT     20061231/240000           
        DISPLAY                         
          ISN                           
          USERID                        
          LJ                            
          LK(1)                         
          LL                            
          LM(1)                         
END                                     
SEL071-SELECTION REQUEST NUMBER:   1    
                                        
SEL072-PROCESSING SELECTION REQUESTS -- 

                                                                                
 SNR   FNR       ISN       USERTID              DELETE - BI 2006-12-29 11:43:23 
  1     8      1165642     ZIIDAP 1                                             
       ISN     0011C94A                             .I                         
       USERID  E9C9C9C4C1D7F4F1                    ZIIDAP41                     
       LJ      ICSUSER3IBL34S01                                                 
       LK(1)                                                                    
       LL                                                                       
       LM(1)                                                                    
                                                                                
 SNR   FNR       ISN       USERTID              DELETE - BI 2006-12-29 11:45:40 
  1     8      1165684     ZIIDAP 1                                             
       ISN     0011C974                             .I                          
       USERID  E9C9C9C4C1D7F4F1                    ZIIDAP41                     
       LJ      ICSUSER3IBL34S01                                                 
       LK(1)                                                                    
       LL                                                                       
       LM(1)                                                                    

SNR   FNR       ISN       USERTID              DELETE - BI 2006-12-29 11:45:40 
 1     8      1165685     ZIIDAP 1                                             
      ISN     0011C975                             .I                          
      USERID  E9C9C9C4C1D7F4F1                    ZIIDAP41                     
      LJ                                                                       
      LK(1)                                                                    
      LL      ICSUSER3IBL34S01                                                 
      LM(1)                                                                    
                                                                               
SNR   FNR       ISN       USERTID              DELETE - BI 2006-12-29 11:58:31 
 1     8      1165785     ZIIDAP 1                                             
      ISN     0011C9D9                             .IR                         
      USERID  E9C9C9C4C1D7F4F1                    ZIIDAP41                     
      LJ      ICSUSER3IBL34S01                                                 
      LK(1)                                                                    
      LL                                                                       
      LM(1)                                                                    
       
SNR   FNR       ISN       USERTID              DELETE - BI 2006-12-29 11:58:31
 1     8      1165809     ZIIDAP 1                                            
      ISN     0011C9F1                             .I1                        
      USERID  E9C9C9C4C1D7F4F1                    ZIIDAP41                    
      LJ                                                                      
      LK(1)                                                                   
      LL      ICSUSER3IBL34S01                                                
      LM(1)                                                                   
                                                                              
SNR   FNR       ISN       USERTID              DELETE - BI 2006-12-29 16:40:20
 1     8      1166007     ZIIKEJ 1                                            
      ISN     0011CAB7                             .                          
      USERID  E9C9C9D2C5D1F4F1                    ZIIKEJ41                    
      LJ      LBZIIKEJIMC50P20                                                
      LK(1)                                                                   
      LL                                                                      
      LM(1)   
                                                                                                                                        
(snip)

ADASEL: select and display updated Natural programs

//SELECT   EXEC ADASEL                                                 
//DDSIIN   DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4242V00
//         DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4243V00
//         DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4244V00
//         DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4245V00
//         DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4246V00
//DDKARTE  DD                                                          
//         DD *                                                        
SELECT UPDATED RECORDS FROM FILE 008                                   
STARTING FROM 20061229/000000                                          
ENDING AT     20061231/240000                                          
        DISPLAY                                                        
          ISN                                                          
          USERID                                                       
          LJ                                                           
          LK(1)                                                        
          LK(2)                                                        
          LK(3)                                                        
          LK(4)                                                        
          LK(5)  
          LK(6)  
          LK(7)  
          LK(8)  
          LK(9)  
          LK(10) 
          LK(11) 
          LK(12) 
          LK(13) 
          LK(14) 
          LK(15) 
          LK(16) 
          LK(17) 
          LK(18) 
          LK(19) 
          LK(20) 
          LL     
          LM(1)  
END              

ADASEL DDDRUCK output of updated records (before (BI) and after (AI) images)

SEL070-PROCESSING REQUEST STATEMENTS--
                                      
SET GLOBALS LS=132 PS=62              
SELECT UPDATED RECORDS FROM FILE 008  
STARTING FROM 20061229/000000         
ENDING AT     20061231/240000         
        DISPLAY                       
          ISN                         
          USERID                      
          LJ                          
          LK(1)                       
          LK(2)                       
          LK(3)                       
          LK(4)                       
          LK(5)                       
          LK(6)                       
          LK(7)                       
          LK(8)                       
          LK(9)              
          LK(10)             
          LK(11)             
          LK(12)             
          LK(13)             
          LK(14)  
          LK(15)                                                              
          LK(16)                                                              
          LK(17)                                                              
          LK(18)                                                              
          LK(19)                                                              
          LK(20)                                                              
          LL                                                                  
          LM(1)                                                               
END                                                                           
SEL071-SELECTION REQUEST NUMBER:   1                                          
                                                                              
SEL072-PROCESSING SELECTION REQUESTS --                                       
                                                                              
                                                                              
                                                                              
SNR   FNR       ISN       USERTID              UPDATE - BI 2006-12-29 11:43:23
 1     8      1165643     ZIIDAP 1                                            
      ISN     0011C94B                             .I.                        
      USERID  E9C9C9C4C1D7F4F1                    ZIIDAP41                    
LJ      ICSUSER3IBL34S01 .                                                      
LK(1)     NAT2 }S 4.1 0003    ICSUSER3IBL34S01ZIIDAP  ZIIDAP  14    14   . R   
LK(2)         ...  `<  } r  MVS/ESA COMPLETE            1142594 20061229NCF413
LK(3)                                                                           
LK(4)    .**********************************************************************
LK(5)    .*   ICIS         MAINTAIN SUBSCRIPTION RATE PARAMETERS         ICIS   
LK(6)    .**********************************************************************
LK(7)     *                                                                     
LK(8)    &* MODULE NAME: IBL34S01  TYPE: SUBROUTINE_        MODE: STRUCTURED___ 
LK(9)    -*                                          ENVIRONMENT: ON-LINE______ 
LK(10)    *                                                                     
LK(11)    * * * * * * * * * * * * * * P R O L O G * * * * * * * * * * * * * * * 
LK(12)    *                                                                     
LK(13)  . *  FUNCTION: MENU TO ALLOW INQUIRY AND UPDATE OF SUBSCRIPTION RATE    
LK(14)  ..*            PARAMETERS                                               
LK(15)  ..*                                                                     
LK(16)  ..*    AUTHOR: NILESH PESHAWARIA__________________ DATE WRITTEN: 04/88  
LK(17)  . *                                                                     
LK(18)  .&* ENTER VIA: IBL34P00 SELECT SUBSCRIPTION RATE PARAMETERS___________  
LK(19)  .-*                                                                     
LK(20)  . * PERFORMS: XXXXXXXXX - INQUIRY-ROUTINE____________________ (INTN)    
LL                                                                              
LM(1)                                                                           
                                                                                
FNR       ISN       USERTID              UPDATE - AI 2006-12-29 11:43:23        
 8      1165643     ZIIDAP 1                                                    
ISN     0011C94B                             .I.                                
USERID  E9C9C9C4C1D7F4F1                    ZIIDAP41                            
LJ      ICSUSER3IBL34S01 .                                                      
LK(1)     NAT2 }S 4.1 0003    ICSUSER3IBL34S01ZIIDAP  ZIIDAP  14    14   . S   
LK(2)         ...  ..  }T` l/MVS/ESA COMPLETE            1143240 20061229NCF413
LK(3)                                   &                               .      
LK(4)    .**********************************************************************
LK(5)    .*   ICIS         MAINTAIN SUBSCRIPTION RATE PARAMETERS         ICIS   
LK(6)    .**********************************************************************
LK(7)     *                                                                     
LK(8)    &* MODULE NAME: IBL34S01  TYPE: SUBROUTINE_        MODE: STRUCTURED___ 
LK(9)    -*                                          ENVIRONMENT: ON-LINE______ 
LK(10)    *                                                                     
LK(11)    * * * * * * * * * * * * * * P R O L O G * * * * * * * * * * * * * * * 
LK(12)    *                                                                     
LK(13)  . *  FUNCTION: MENU TO ALLOW INQUIRY AND UPDATE OF SUBSCRIPTION RATE    
LK(14)  ..*            PARAMETERS                                               
LK(15)  ..*                                                                     
LK(16)  ..*    AUTHOR: NILESH PESHAWARIA__________________ DATE WRITTEN: 04/88  
LK(17)  . *                                                                     
LK(18)  .&* ENTER VIA: IBL34P00 SELECT SUBSCRIPTION RATE PARAMETERS___________  
LK(19)  .-*                                                                     
LK(20)  . * PERFORMS: XXXXXXXXX - INQUIRY-ROUTINE____________________ (INTN)    
LL                                                                              
LM(1)                                                                           
(snip)                                                                                  

For more information please see the ADABAS Utility Manual

Top Page


Back to ADABAS Tips, Tricks, Techniques -- Overview