RE: Message Files -- COBOL400-L

I could have been a little clearer: I was looking for a method of directly
accessing a file of type *MSGF directly from within a COBOL program without
having to make a call to an external program. The goal is to capture the
message text within the program 
 

Brian Brock 
EDS/ WorldCom 
Client Support Team 
500 Clinton Center Drive 
Clinton, MS 39056 
PH (601) 460-8141 
eFax (425) 940-5959 

 
-----Original Message-----
From: Weatherly, Howard [mailto:hweatherly@dlis.dla.mil]
Sent: Monday, November 13, 2000 7:29 AM
To: 'COBOL400-L@midrange.com'
Subject: RE: Message Files



Brian, 

This is a snippet from a COBOL program that does what I believe you are
looking for, it follows no logic but you can see that you move the message
number into the MSGNBR field defined on the screen and when you write the
screen the message represented by the number will appear in the message
field associated. Below that is the associated message file.          

        
                 WHEN PF06                                   
                    PERFORM INITIALIZE-SUBFILE               
                    CALL "LSSU801URP"                        
                       USING INDICATOR-TAB HOST-VARIABLES    
                    END-CALL                                 
                    SET INDOF(90) TO TRUE                    
                    MOVE "TLI0002" TO MSGNBR IN LSSU801R3-O  
                 WHEN PF21                                   
                    SET WS-INZTAP-FLAG TO TRUE               
              END-EVALUATE 
. 
. 
. 
. 
      

 DISPLAY-ACCEPT-SCREEN.                                
   ACCEPT WS-TIME FROM TIME                            
   ACCEPT WS-DATE FROM DATE                            
   PERFORM WRITE-SCREEN-R1                             
   EVALUATE TRUE                                       
      WHEN INDON(17)                                   
         STRING                                        
            "Enter=Select/Continue F3=Quit F6=Report " 
            "F18=Mass Add F19=Mass Del  F12=Cancel"    
            DELIMITED BY SIZE INTO FKEYS IN LSSU801R4-O 
         END-STRING                                    
         PERFORM WRITE-SCREEN-R4                       
         PERFORM ACCEPT-SUBSETTER-SCREEN               
      WHEN OTHER                                       
         PERFORM WRITE-SCREEN-R2                       
         PERFORM ASSIGN-PF-KEYS                        
         PERFORM WRITE-SCREEN-R3                       
                             
                         Work with Message Descriptions

                                                             System:
ENDEAVOR 
 Message file:   TLSMSGF        Library:   QGPL

 

 Position to . . . . . . .             Message ID

 

 Type options, press Enter.

   2=Change   4=Delete   5=Display details   6=Print

 

 Opt  Message ID  Severity  Message Text

       TLE0000        0     Group Message Header

       TLE0001       40     TLE0001 - Data not entered.

       TLE0002       40     TLE0002 - Value entered is not correct. (SAVE).

       TLE0003       40     TLE0003 - Date entered is not valid.

       TLE0004       40     TLE0004 - Value entered is not correct (OPT).

       TLE0006       40     TLE0006 - Device entered does not exist in
device t 
       TLI0000        0     TLI0000 - Information Group Header

       TLI0001        0     TLI0001 - Press F10 to Update


-----Original Message----- 
From: Brock, Brian [ mailto:brian.brock@eds.com <mailto:brian.brock@eds.com>
] 
Sent: Sunday, November 12, 2000 11:17 
To: COBOL400-L@midrange.com 
Subject: Message Files 


Does anyone know of a way to utilize AS/400 message files in COBOL/400? 

Brian Brock 
EDS/ WorldCom 
Client Support Team 
500 Clinton Center Drive 
Clinton, MS 39056 
PH (601) 460-8141 
eFax (425) 940-5959 
  
+--- 
| This is the COBOL/400 Mailing List! 
| To submit a new message, send your mail to COBOL400-L@midrange.com. 
| To subscribe to this list send email to COBOL400-L-SUB@midrange.com. 
| To unsubscribe from this list send email to COBOL400-L-UNSUB@midrange.com.

| Questions should be directed to the list owner/operator:
david@midrange.com 
+---END 

+---
| This is the COBOL/400 Mailing List!
| To submit a new message, send your mail to COBOL400-L@midrange.com.
| To subscribe to this list send email to COBOL400-L-SUB@midrange.com.
| To unsubscribe from this list send email to COBOL400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---END