Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to processed the 'p*' record?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IDMS/ADSO
View previous topic :: :: View next topic  
Author Message
wanghuibo

New User


Joined: 25 Nov 2008
Posts: 5
Location: SingTel's Sub comany(china ncs)

PostPosted: Thu Dec 25, 2008 8:30 am    Post subject: How to processed the 'p*' record?
Reply with quote

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
View user's profile Send private message

wanghuibo

New User


Joined: 25 Nov 2008
Posts: 5
Location: SingTel's Sub comany(china ncs)

PostPosted: Tue Jan 06, 2009 7:30 am    Post subject: Reply to: How to processed the 'p*' record?
Reply with quote

Self Answer: icon_biggrin.gif

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
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Jan 06, 2009 8:52 am    Post subject:
Reply with quote

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
View user's profile Send private message
wanghuibo

New User


Joined: 25 Nov 2008
Posts: 5
Location: SingTel's Sub comany(china ncs)

PostPosted: Wed Jan 07, 2009 6:52 am    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IDMS/ADSO All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm
No new posts Sort Large record length cmsmoon DFSORT/ICETOOL 14 Tue Apr 11, 2017 5:49 pm
No new posts Format record to remove Leading zeroes Learncoholic DFSORT/ICETOOL 14 Wed Apr 05, 2017 2:43 pm
No new posts Record Not found in AlX but record re... mukun264 COBOL Programming 7 Fri Mar 24, 2017 9:28 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us