SET NULL ON CREATE CURSOR temp1; (field1 C(10),; field2 N(10),; field3 L) MODIFY STRUCTURE SET NULL OFF CREATE CURSOR temp1; (field1 C(10),; field2 N(10),; field3 L) MODIFY STRUCTURE>Right, but I still prefer:
CREATE CURSOR crsrAutoRateBillItems; > (arbi_bcm_fk I NOT NULL, arbi_bcm_code C (12) NOT NULL,; > arbi_bfn_fk I NOT NULL, arbi_bcm_rate N (7, 2) NOT NULL,; > arbi_bcm_notbillable L NOT NULL, arbi_bcm_use_billcode L NOT NULL,; > arbi_bcm_min N (7, 2) NOT NULL, arbi_bcm_allowed N (7, 2) NOT NULL,; > arbi_bcm_order I NOT NULL, arbi_desc M NOT NULL,; > arbi_pieces N (12, 2) NOT NULL, arbi_weight N (12, 2) NOT NULL,; > arbi_qty N (12, 2) NOT NULL, arbi_rate N (14, 4) NOT NULL,; > arbi_ratetype C (1) NOT NULL, arbi_amount N (12, 2) NOT NULL,; > arbi_revcode C (2) NOT NULL, arbi_dept C (2) NOT NULL,; > arbi_prompt L NOT NULL, arbi_line I NOT NULL,; > arbi_keep L NOT NULL, arbi_exception L NOT NULL,; > arbi_source I NOT NULL)BTW, do you really need to specify NOT NULL on a cursor?
>CREATE CURSOR crsrAutoRateBillItems ; >> (arbi_bcm_fk I NOT NULL, ; >> arbi_bcm_code C(12) NOT NULL, ; >> arbi_bfn_fk I NOT NULL, ; >> arbi_bcm_rate N(7, 2) NOT NULL, ; >> arbi_bcm_notbillable L NOT NULL, ; >> arbi_bcm_use_billcode L NOT NULL, ; >> arbi_bcm_min N(7, 2) NOT NULL, ; >> arbi_bcm_allowed N(7, 2) NOT NULL, ; >> arbi_bcm_order N(4, 0) NOT NULL, ; >> arbi_desc M NOT NULL, ; >> arbi_pieces N(12, 2) NOT NULL, ; >> arbi_weight N(12, 2) NOT NULL, ; >> arbi_qty N(12, 2) NOT NULL, ; >> arbi_rate N(14, 4) NOT NULL, ; >> arbi_ratetype C(1) NOT NULL, ; >> arbi_amount N(12, 2) NOT NULL, ; >> arbi_revcode C(2) NOT NULL, ; >> arbi_dept C(2) NOT NULL, ; >> arbi_prompt L NOT NULL, ; >> arbi_line I NOT NULL, ; >> arbi_keep L NOT NULL, ; >> arbi_exception L NOT NULL, ; >> arbi_source N(1) NOT NULL)>to
>CREATE CURSOR crsrAutoRateBillItems ; >> (arbi_bcm_fk I NOT NULL, ; >> arbi_bcm_code C(12) NOT NULL, ; >> arbi_bfn_fk I NOT NULL, ; >> arbi_bcm_rate N(7, 2) NOT NULL, ; >> arbi_bcm_notbillable L NOT NULL, ; >> arbi_bcm_use_billcode L NOT NULL, ; >> arbi_bcm_min N(7, 2) NOT NULL, ; >> arbi_bcm_allowed N(7, 2) NOT NULL, ; >> arbi_bcm_order N(4, 0) NOT NULL, ; >> arbi_desc M NOT NULL, ; >> arbi_pieces N(12, 2) NOT NULL, ; >> arbi_weight N(12, 2) NOT NULL, ; >> arbi_qty N(12, 2) NOT NULL, ; >> arbi_rate N(14, 4) NOT NULL, ; >> arbi_ratetype C(1) NOT NULL, ; >> arbi_amount N(12, 2) NOT NULL, ; >> arbi_revcode C(2) NOT NULL, ; >> arbi_dept C(2) NOT NULL, ; >> arbi_prompt L NOT NULL, ; >> arbi_line I NOT NULL, ; >> arbi_keep L NOT NULL, ; >> arbi_exception L NOT NULL, ; >> arbi_source N(1) NOT NULL) >>