Hey everyone - back again with another COBOL problem. Your help with my
COPY REPLACING question was great and the programmer is quite happy with
that solution. Now, he came to me with what looks like a problem, and I
am not sure if we are doing something wrong, or if it is a bug in our
Enterprise COBOL for z/OS 6.3.0 P220314 system.
In a nutshell, when using the LENGTH(TRIM(some-field)) function against
any elementary data item, it works great. However, when using it against
an item within an occurs (think data table), every reference beyond 1
gets handled as item #1. For example, if I have a group with 8 items,
the length of item #1 is right, but the length of item(2) through
item(8) is always the value of item(1). The table index can be display
numeric, packed, or binary, and the results are the same, so I don't
think it is a problem with the index, but somehow the reference is not
resolved correctly within the nested function.
Maybe a short program would be helpful. I hope a 60 line program is ok!
Let me know what you think is happening.
IDENTIFICATION DIVISION.
PROGRAM-ID. TSTPG002.
ENVIRONMENT DIVISION.
Configuration Section.
Repository.
Function All Intrinsic.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS.
05 INL-NO PIC S9(08) VALUE ZERO BINARY.
05 INL-I1 PIC S9(08) VALUE ZERO BINARY.
05 INL-I2 PIC S9(08) VALUE ZERO BINARY.
05 INL-H PIC S9(08) VALUE ZERO BINARY.
05 IN-GRP-X.
10 L1 PIC X(65) VALUE '* THIS_IS_A_COMMENT Here .28'.
10 L2 PIC X(65) VALUE SPACE.
10 L3 PIC X(65) VALUE 'COMND VALUE1 17'.
10 L4 PIC X(65) VALUE ' COMND VALUE2 21'.
10 L5 PIC X(65) VALUE ' COMND VALUE3 21'.
10 L6 PIC X(65) VALUE 'COMND VALUE4 15 '.
10 L7 PIC X(65) VALUE ' COMND VAL* 27 '.
10 L8 PIC X(65) VALUE ' * THIS_IS_A_COMMENT... 29'.
05 REDEFINES IN-GRP-X OCCURS 8.
10 IN-LINE PIC X(65).
05 Hold-L PIC X(65).
05 I1 PIC S9(08) VALUE ZERO Binary.
05 I2 PIC S9(08) VALUE ZERO.
PROCEDURE DIVISION.
PERFORM VARYING I1 FROM 1 BY 1 UNTIL I1 GREATER 8
Move I1 to I2
Move In-line(I1) to Hold-L
Display I1 ' '
'----+----1----+----2----+----3----+----4'
'----+----5----+----6----+'
Display ' Original: >' IN-LINE(I1) '<'
Display ' Trim: >' Trim(In-line(I1) Trailing) '<'
Compute INL-I1 = Length(Trim(In-line(I1) Trailing))
Compute INL-I2 = Length(Trim(In-line(I2) Trailing))
Compute INL-H = Length(Trim(Hold-L Trailing))
Evaluate TRUE
When I1 = 1 Compute INL-NO = Length(Trim(L1 Trailing))
When I1 = 2 Compute INL-NO = Length(Trim(L2 Trailing))
When I1 = 3 Compute INL-NO = Length(Trim(L3 Trailing))
When I1 = 4 Compute INL-NO = Length(Trim(L4 Trailing))
When I1 = 5 Compute INL-NO = Length(Trim(L5 Trailing))
When I1 = 6 Compute INL-NO = Length(Trim(L6 Trailing))
When I1 = 7 Compute INL-NO = Length(Trim(L7 Trailing))
When Other Compute INL-NO = Length(Trim(L8 Trailing))
End-Evaluate
Display ' Lengths:'
' I1(' INL-I1 ')'
' I2(' INL-I2 ')'
' Hold(' INL-H ')'
' By name(' INL-NO ')'
Display ' '
END-PERFORM
GOBACK.
Thank you and best regards,
Billy Ashton
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
