Re: [COBOL400-L] how to retrieve workstation id in cobol400

[cobol400-l@xxxxxxxxxxxx]

This works for me. (Second email, this time with line feeds).

PROCESS APOST. 
                                        
IDENTIFICATION DIVISION. 
                              
PROGRAM-ID. DSPATRTST.
                                 
AUTHOR. PLA.   
                                        
DATE-WRITTEN. 04/05/2005.  
                            
ENVIRONMENT DIVISION.  
                                
CONFIGURATION SECTION. 
                                
SOURCE-COMPUTER.  IBM-AS400.  
                         
OBJECT-COMPUTER.  IBM-AS400. 
                          
*SPECIAL-NAMES. I-O-FEEDBACK IS FEEDBACK-DISPLAY  
      
              ATTRIBUTE-DATA IS DISPLAY-ATTRIBUTES.     *

INPUT-OUTPUT SECTION.  
                                
FILE-CONTROL.  
                                        
   SELECT IOF-SCREEN  
                                
          ASSIGN WORKSTATION-SOMDFM01
                 
          ORGANIZATION IS TRANSACTION 
                
          ACCESS MODE IS DYNAMIC      
                
          RELATIVE KEY IS POINTER1   
                 
          FILE STATUS WS-FILE-STATUS. 
                
                                                        
DATA DIVISION. 
                                        
FILE SECTION.  
                                        
FD  IOF-SCREEN  
                                       
    LABEL RECORDS ARE STANDARD. 
                            
01  IOR-SCREEN.             
                                
    COPY DDS-ALL-FORMATS OF SOMDFM01. 
                      
                                                              
WORKING-STORAGE SECTION.  
                                  
*01  WS-DISPLAY-ATTRIBUTES.
                                  
     02  PROGRAM-DEVICE-NAME       PIC X(10).    *
           
     02  DEVICE-DESCRIPTION-NAME   PIC X(10).  
             
     02  USER-ID                   PIC X(10). 
              
     02  DEVICE-CLASS              PIC X.     
              
     02  DEVICE-TYPE               PIC X(6).  
              
01  WS-FILE-STATUS                 PIC X(02).  
             
01  POINTER1                       PIC 9(05). 
              
PROCEDURE DIVISION.  
                                      
                                                              
000-OPENING-PARAGRAPH.   
                                   
    OPEN I-O IOF-SCREEN. 
                                   
  *  ACCEPT WS-DISPLAY-ATTRIBUTES FROM DISPLAY-ATTRIBUTES. 
   *
    DISPLAY PROGRAM-DEVICE-NAME  
                           
    CLOSE IOF-SCREEN.   
                                    
    GOBACK.      



Thanx, PLA

                                           

cobol400-l@xxxxxxxxxxxx wrote:

> hi all,
>
> in rpgle i would do this
>
> d                sds                               
> d  wsid                 244    253                 
> d wksid           s             10    inz(*blanks) 
> c                   eval      wksid   =   wsid  
>
> but how do i do it in cobol400
>
> TIA!!!
> GODBLESS!! 
> _______________________________________________
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
> To post a message email: COBOL400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
> or email: COBOL400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
>
>