--------------------------- CICS VT: Insert column --------------------------
Command ===> ________________________________________________ Scroll ===> CSR
Enter new field and column attributes:-
Copybook field:
position ==> 49___
length ==> 35__
data type ==> _ (C,P,U,F,H,B)
Column:
name ==> .................................................. +
length ==> _____ Optional (if DEC specify x,y)
data type ==> ____ (CHAR,DEC,INT,SINT,BINT,DATE,TIME,TIMS)
Mapping:
picture / FBE ==> _________________ (example HH.XX.SS.NNNNNN)
(or MMDDYY)
(or EXITx=exit name)
parameters ==> __________________________ Optional user parameters
Press: Enter to confirm PF3 to exit PF1 for help
--------------------------- CICS VT: Insert column --------------------------
Command ===> ________________________________________________ Scroll ===> CSR
Enter new field and column attributes:-
Copybook field:
position ==> 49___
length ==> 4 __
data type ==> C (C,P,U,F,H,B)
Column:
name ==> ITEM_DESC_SHORT................................... +
length ==> _____ Optional (if DEC specify x,y)
data type ==> CHAR (CHAR,DEC,INT,SINT,BINT,DATE,TIME,TIMS)
Mapping:
picture / FBE ==> _________________ (example HH.XX.SS.NNNNNN)
(or MMDDYY)
(or EXITx=exit name)
parameters ==> __________________________ Optional user parameters
Press: Enter to confirm PF3 to exit PF1 for help
--------------------------- CICS VT: Insert column --------------------------
Command ===> ________________________________________________ Scroll ===> CSR
Enter new field and column attributes:-
Copybook field:
position ==> 53___
length ==> 31__
data type ==> _ (C,P,U,F,H,B)
Column:
name ==> .................................................. +
length ==> _____ Optional (if DEC specify x,y)
data type ==> ____ (CHAR,DEC,INT,SINT,BINT,TIME,TIMS)
Mapping:
picture / FBE ==> _________________ (example HH.XX.SS.NNNNNN)
(or MMDDYY)
(or EXITx=exit name)
parameters ==> __________________________ Optional user parameters
Press: Enter to confirm PF3 to exit PF1 for help
--------------------- CICS VT: Edit columns in VIDKSDS2 ------- Row 1 from 11
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----+---- ---- ----- -----------------
_ 1 ITEM-NUMBER + 6
ITEM_NUMBER................... + CHAR 6
_ 7 ITEM-NAME + 12
ITEM_NAME..................... + CHAR 12
_ 19 ITEM-COLOUR + 6
ITEM_COLOUR................... + CHAR 6
_ 25 ITEM-HEIGHT + 4
ITEM_HEIGHT................... + CHAR 4
_ 29 ITEM-COST + 4
ITEM_COST..................... + DEC 7,2
_ 33 ITEM-REORDER-QUANTITY + 3
ITEM_REORDER_QUANTITY......... + DEC 3,0
_ 36 ITEM-SUPPLIER-CODE + 3
ITEM_SUPPLIER_CODE............ + CHAR 3
_ 39 ITEM_DATE_FIRST_SHIPPED + 8
ITEM_DATE_FIRST_SHIPPED....... + DATE Y
_ 47 ITEM-SHELF-LIFE + 2
ITEM_SHELF_LIFE............... + CHAR 2
_ 49 ITEM_DESC_SHORT + 4
ITEM_DESC_SHORT............... + CHAR 4
_ 53 ITEM_DESC_LONG + 31
ITEM_DESC_LONG................ + CHAR 31