RE: Moving Fields

[<Geir.Kildal@xxxxxxxxxxxxxxx>]

Semiha.

You can use something like this :

01      field-alpha     PIC x(someting)
01      field-numeric   PIC s9(something)     (This field can NOT be
packed! (Comp-someting))

If      field-alpha is numeric
        move field-alpha to field-numeric
end-if.

Mvh.

Geir

Mob.: 9010 1316

-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Semiha BALKAYA
(IsBank)
Sent: 26. oktober 2005 09:24
To: cobol400-l@xxxxxxxxxxxx
Subject: [COBOL400-L] Moving Fields

Hi guys

It may another stupid cobol question be, but I wonder about is there any
way to move alphanumeric field to numeric field in COBOL pgm. How can i
do this  without write down a lots of pgm statements.

Semiha Balkaya
--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/cobol400-l.