| View previous topic :: View next topic |
| Author |
Message |
neelamchalam
Beginner
Joined: 12 Nov 2003
Posts: 1
Topics: 1
Location: india
|
 Posted: Wed Nov 12, 2003 9:22 am Post subject: problem with ssa |
 |
|
pls suggest me how to write exact SSA for the following problem.
Thanks in advans,
| Code: |
05 X02X09
10 KX02X09
15 NWAT PS 6 K 666081
15 DATE PS 8 K 79969075
15 XCT PS 3 K 0
10 MONTH PS 7 2 INVALD X'F000000'
10 TAUX RDEFINES MONTH
|
The above one is segment structure i need to access, i am trying with one qualified SSA like following
| Code: |
01 W-X02X09-QUAL-SSA.
05 FILLER PIC X(10) VALUE 'X02X09 ( '.
05 FILLER PIC X(08 ) VALUE ' NWAT = '.
05 W-Y091- NWAT COMP-3 PIC S9(06) VALUE ZEROES.
05 FILLER PIC X(10) VALUE 'D2FFE = '.
05 W-DATE COMP-3 PIC S9(08 ) VALUE 70068780.
05 FILLER PIC X(10) VALUE 'CPTNO = '.
05 W-XCT COMP-3 PIC S9(03) VALUE 002.
05 FILLER PIC X VALUE ')'.
|
AS three key values are comp-3 fields, and key length is 17, but while i am issuing DLI calls i am not getting what exactu i need to get, in PCB also i given key as PIC S(17) COMP-3
_________________
nvchalam |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Wed Nov 12, 2003 10:00 am Post subject: |
|
|
chalam,
What is the language used for definitions? It doesn't look like cobol. If I understand correctly , you want to select a record from the segment for a defined value.
| Code: |
01 W-X02X09-QUAL-SSA.
05 FILLER PIC X(08 ) VALUE 'SEGNAME '.
05 FILLER PIC X(01) VALUE '('.
05 FILLER PIC X(08 ) VALUE 'FLDNAME '. 05 FILLER PIC X(02) VALUE ' ='.
05 SRCH-KEY PIC S9(06) COMP-3 VALUE ZEROES.
05 FILLER PIC X(01) VALUE ')'.
|
now issue a call with GU to get the desired record
| Code: |
CALL 'CBLTDLI' USING FUNC-GU
DATA-PCB1
DATA-IO-AREA
W-X02X09-QUAL-SSA
|
Hope this helps...
cheers
kolusu |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
