|
View previous topic :: View next topic
|
| Author |
Message |
wanghuibo
New User
Joined: 25 Nov 2008
Posts: 5
Location: SingTel's Sub comany(china ncs)
|
|
|
|
Merry Christmas!
Can you help me? I have a problem for sweep IDMS record.
How can I retrieve the “P*” record in COBOL pgm? Obtain or get? As below img.
After obtain or get when I type display “I1089-DATE’ or move ‘i1089-date’ to a display data-item the result will be the same as below,
For this reason, I can’t wirter i1089-date to outfile correctly!
What can I do? Please help me,Thanks. |
|
| Back to top |
|
 |
wanghuibo
New User
Joined: 25 Nov 2008
Posts: 5
Location: SingTel's Sub comany(china ncs)
|
|
|
|
Self Answer: 
| Code: |
075340* COPY IDMS RECORD KEY-INVERTER.
01 KEY-INVERTER.
02 I1089-INVERTER-KEY.
03 I1089-TYPE-OF-KEY PIC X.
03 I1089-ALTERNATE-KEY PIC X(30).
02 I1089-MAIN-KEY PIC X(30).
02 I1089-INVERTER-UPD-NOS.
03 I1089-REC-UPD-NO PIC S9(4) COMP.
02 I1089-DATE PIC 9(8) COMP-3.
02 FILLER PIC X(4).
|
Because the field I1089-DATE occupying 5 bytes of storage. As below:
MOVE 20090105 TO I1089-DATE
it's stored like '20090105', so extract this record it's value just is '20090105'
MOVE X'F2F0F0F9F0F1F0F5' TO I1089-DATE
it's stored like 'F2F0F0F8F0'(5bytes),so extract this record it's value should be '20090'
|
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
| Quote: |
| MOVE X'F2F0F0F9F0F1F0F5' TO I1089-DATE |
Suggest this should not be done. . .
Not only will the field not contain a valid date, it is not a valid comp-3 value (it has no valid sign) which will most likely cause abends. . . |
|
| Back to top |
|
|
wanghuibo
New User
Joined: 25 Nov 2008
Posts: 5
Location: SingTel's Sub comany(china ncs)
|
|
|
|
Hi,
Type the 'move' command on dmlo command line.As below
| Code: |
01/07/09......................RECORD : KEY-INVERTER....................09:08:16
02 I1089-INVERTER-KEY.......................G
03 I1089-TYPE-OF-KEY.......................A G
03 I1089-ALTERNATE-KEY.....................A 000525016158150030
02 I1089-MAIN-KEY...........................A TS008150030 0000
02 I1089-INVERTER-UPD-NOS...................G
03 I1089-REC-UPD-NO........................H +00001
02 I1089-DATE...............................P 20090105
DML/O R16.0 ========================================================== CA, INC.
RECORD=KEY-INVERTER STATUS=0000 DBKEY=0001572002-0001 KEY0=0000000000-0000
MOVE 20090105 TO I1089-DATE <---- [here]
SUBSCHEMA=SSCIAA00 SCHEMA=SCCS00 VER=0060 COL 001-080 LINE 0001 OF 0007
|
| Code: |
01/07/09......................RECORD : KEY-INVERTER....................09:11:54
02 I1089-INVERTER-KEY.......................G
03 I1089-TYPE-OF-KEY.......................A G
03 I1089-ALTERNATE-KEY.....................A 000525016158150030
02 I1089-MAIN-KEY...........................A TS008150030 0000
02 I1089-INVERTER-UPD-NOS...................G
03 I1089-REC-UPD-NO........................H +00001
02 I1089-DATE...............................P* F2F0F0F9F0
DML/O R16.0 ========================================================== CA, INC.
RECORD=KEY-INVERTER STATUS=0000 DBKEY=0001572002-0001 KEY0=0000000000-0000
MOVE X'F2F0F0F9F0F1F0F5' TO I1089-DATE <---- [here]
SUBSCHEMA=SSCIAA00 SCHEMA=SCCS00 VER=0060 COL 001-080 LINE 0001 OF 0007
|
|
|
| Back to top |
|
|
|
|
