| View previous topic :: View next topic |
| Author |
Message |
geetha001
Beginner
Joined: 22 Jun 2005
Posts: 41
Topics: 14
|
 Posted: Thu Oct 27, 2005 8:52 am Post subject: Convert Alphanumeric to signed numeric in Easytrieve |
 |
|
The following requirement is in easytrieve
I have a numeric field defined as X(13)
| Quote: |
WS-RATE W 13 A
WS-RATE-S WS-RATE 1 A
WS-RATE-N WS-RATE +1 7 A
WS-RATE-P WS-RATE +8 1 A
WS-RATE-D WS-RATE +9 4 A
|
I need to convert this to a signed numeric field. I have to display in my output as signed numeric. Please let me know how to do this ?
I tried to define a field
and I did
MOVE WS-RATE TO WS-RATE1 I got a S0C7 error.
I even tried defining WS-RATE1 W 6 P 4 and moved WS-RATE TO WS-RATE1. I got a S0C7 error. |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Thu Oct 27, 2005 10:59 am Post subject: |
|
|
geetha001,
Try this untested code.
| Code: |
//STEP0100 EXEC PGM=EZTPA00
//STEPLIB DD DSN=EASYTREV.LOADLIB,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSSNAP DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//INFILE DD *
+0123456.7890
-0000234.0000
//OUTPUT DD SYSOUT=*,
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=0)
//*
//SYSIN DD *
FILE INFILE
AMT-S 01 001 A
AMT-NUM * 007 N
AMT-DOT * 001 A
AMT-DEC * 004 N
W-NUM W 11 N 0
W-AMT1 W-NUM 07 N 0
W-AMT2 W-NUM +07 04 N 0
FILE OUTPUT FB(0 0)
O-AMT 01 11 N 0
***********************************************************
* MAINLINE
***********************************************************
JOB INPUT INFILE
W-NUM = 0
W-AMT1 = AMT-NUM
W-AMT2 = AMT-DEC
IF AMT-S = '-'
W-NUM = W-NUM * -1
END-IF
O-AMT = W-NUM
PUT OUTPUT
/*
|
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
geetha001
Beginner
Joined: 22 Jun 2005
Posts: 41
Topics: 14
|
| Posted: Thu Oct 27, 2005 1:02 pm Post subject: |
|
|
| Thanks Kolusu. It worked. |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
