|
View previous topic :: View next topic
|
| Author |
Message |
Gary Lin
Warnings : 1
New User
Joined: 08 Mar 2009
Posts: 15
Location: Taipei, Taiwan
|
|
|
|
| SMF type 71, the SMF71ASI is the Number of page-ins from auxiliary storage for shared page group, it is defined as length 8, and format is “floating”. How to define this filed with COBOL pic, is X or 9, and the length. How to use MOVE to get this number to print? |
|
| Back to top |
|
 |
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
| Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA
|
|
|
|
Gary,
As much as this may seen strange, an eight byte floating item/field in COBOL is defined as COMP-2 with no picture clause and (FWIW) a four byte floating point item/field is defined as COMP-1, with no picture clause.
| Code: |
03 WS-FLOAT-LONG COMP-2.
03 WS-FLOAT-SHORT COMP-1.
|
COBOL will convert this to a displayable value successfully, nearly all of the time (hence, the caveat).
Please review the appropriate COBOL Programming Guide for notes regarding conversion results and possible loss of significance.
Regards, |
|
| Back to top |
|
|
Gary Lin
Warnings : 1
New User
Joined: 08 Mar 2009
Posts: 15
Location: Taipei, Taiwan
|
|
|
|
| I do read the manual, please draw up the satement, for cobol defines as PIC x(??) or pic 9(??) , indicate the ?? length number in working storage , and how to use MOVE to get this number in procedure? |
|
| Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
| Quote: |
| and how to use MOVE to get this number in procedure? |
Heck, a MOVE is a move, just move the dang thing from what it is to what you want it to be.... |
|
| Back to top |
|
|
Gary Lin
Warnings : 1
New User
Joined: 08 Mar 2009
Posts: 15
Location: Taipei, Taiwan
|
|
|
|
| highly appreciate your help, it works as expectations. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Good to hear it is working - thanks for letting us know 
d |
|
| Back to top |
|
|
|
|
