CICS VSAM Transparency for z/OS, Version 1.2


Deleting a column

Specifying D on the command line deletes a column, and produces the following confirmation screen:

Figure 1. Delete column screen
  
                                     Confirm deletion 
                                                 
                                                 
Command ===>                                             Scroll ====> CSR   
                                                                            
                                                                           
    Column to be deleted: ZONED_DEC_01                                   +                                                  
   
    Press Enter to confirm delete                
    Press PF3 to cancel delete

Start of change Use the delete column option if you have filler fields or other fields that are obsolete and not required in DB2® . End of change

Use the delete column option for redefined fields. The way that CICS® VT handles redefined fields is explained in COBOL REDEFINES clause and PL/I pointer based structures . Figure 2 shows how to use the delete column option to manage an example of redefined copybook fields:

Figure 2. Deleting redefined fields
 
 --------------------- CICS VT: Edit columns in TFILE04 ------- Row 15 from 36
Command ===> ________________________________________________ Scroll ===> CSR 
                                                                              
Commands: MAP  SAVE  PREVIEW  SUSPEND/RESUME  CHANGE/UNDO  SHOW               
Actions:  S Display, U Update, D Delete, I Insert            Status message / 
A Pos   Copybook field name / DB2 column name     Type Len   Exit      Pic Par
- ----- ----+----1----+----2----+----3----+----   ---- ----- -----------------
d 63    ZONED-DEC-01                            +      8     Redefined field 1
        ZONED_DEC_01..................          +  DEC 8,0                    
d 63    CHAR-REDEF-L1                           +      8     Redefined field 2
        CHAR_REDEF_L1.................          + CHAR 8                      
_ 63    CHAR-REDEF-2X                           +      2     Redefined field 2
        CHAR_REDEF_2X.................          + CHAR 2                      
d 65    CHAR-REDEF-2Y                           +      6     Redefined field 3
        CHAR_REDEF_2Y.................          + CHAR 6                      
_ 65    CHAR-REDEF-3X                           +      2     Redefined field 3
        CHAR_REDEF_3X.................          + CHAR 2                      
d 67    CHAR-REDEF-3Y                           +      4     Redefined field 4
        CHAR_REDEF_3Y.................          + CHAR 4                      
_ 67    CHAR-REDEF-4X                           +      1     Redefined field 4
        CHAR_REDEF_4X.................          + CHAR 1                      
d 68    CHAR-REDEF-4Y                           +      3     Redefined field 5
        CHAR_REDEF_4Y.................          + CHAR 3                      
_ 68    CHAR-REDEF-5X                           +      1     Redefined field 5
        CHAR_REDEF_5X.................          + CHAR 1                      
_ 69    CHAR-REDEF-5Y                           +      2     Redefined field 5
        CHAR_REDEF_5Y.................          + CHAR 2                      
_ 71    DATE-DEC-02                             +      8     Redefined field 1
        DATE_DEC_02...................          +  DEC 8,0                    
_ 71    CHAR-REDEF-CC                           +      2     Redefined field 1
        CHAR_REDEF_CC.................          + CHAR 2                      

After processing the actions, the 8 bytes starting at position 63 will be composed of the columns CHAR_REDEF_2X, CHAR_REDEF_3X, CHAR_REDEF_4X, CHAR_REDEF_5X, and CHAR_REDEF_5Y. This is shown in the Edit columns screen that follows:

Figure 3. Edit columns screen after deleting redefined fields
 
 --------------------- CICS VT: Edit columns in TFILE04 ------- Row 15 from 31
Command ===> ________________________________________________ Scroll ===> CSR 
                                                                              
Commands: MAP  SAVE  PREVIEW  SUSPEND/RESUME  CHANGE/UNDO  SHOW               
Actions:  S Display, U Update, D Delete, I Insert            Status message / 
A Pos   Copybook field name / DB2 column name     Type Len   Exit      Pic Par
- ----- ----+----1----+----2----+----3----+----   ---- ----- -----------------
_ 63    CHAR-REDEF-2X                           +      2     Redefined field 1
        CHAR_REDEF_2X.................          + CHAR 2                      
_ 65    CHAR-REDEF-3X                           +      2     Redefined field 2
        CHAR_REDEF_3X.................          + CHAR 2                      
_ 67    CHAR-REDEF-4X                           +      1     Redefined field 3
        CHAR_REDEF_4X.................          + CHAR 1                      
_ 68    CHAR-REDEF-5X                           +      1     Redefined field 4
        CHAR_REDEF_5X.................          + CHAR 1                      
_ 69    CHAR-REDEF-5Y                           +      2     Redefined field 4
        CHAR_REDEF_5Y.................          + CHAR 2                      
_ 71    DATE-DEC-02                             +      8     Redefined field 1
        DATE_DEC_02...................          +  DEC 8,0                    
_ 71    CHAR-REDEF-CC                           +      2     Redefined field 1
        CHAR_REDEF_CC.................          + CHAR 2                      
_ 73    CHAR-REDEF-YY                           +      2     Redefined field 1
        CHAR_REDEF_YY.................          + CHAR 2                      
_ 75    CHAR-REDEF-MM                           +      2     Redefined field 1
        CHAR_REDEF_MM.................          + CHAR 2                      
_ 77    CHAR-REDEF-DD                           +      2     Redefined field 1
        CHAR_REDEF_DD.................          + CHAR 2                      
_ 79    OCCUR-01                                +      10    Redefined field 1
        OCCUR_01......................          +  DEC 10,0                   
_ 79    OCCUR-FIELD-01_001                      +      2     Redefined field 1
        OCCUR_FIELD_01_001............          + CHAR 2                      
                                                                              

You can specify delete for multiple columns at the same time. A delete confirmation panel is shown for each deleted column.





Last updated: December 6, 2013 20:43:8

Information Information

Feedback


Timestamp icon Last updated: Friday, 6 December 2013


http://pic.dhe.ibm.com/infocenter/cicsts/v5r1/topic///topics/cvtug_delete_column.html