Specifying D on the command line deletes a column, and produces the following confirmation screen:
Confirm deletion Command ===> Scroll ====> CSR Column to be deleted: ZONED_DEC_01 + Press Enter to confirm delete Press PF3 to cancel delete
Use the delete column option if you have filler fields or other
fields that are obsolete and not required in
DB2®
.
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:
--------------------- 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:
--------------------- 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.