Glenn,

Very good point.

François 

-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf Of Glenn Mitchell
Sent: Wednesday, February 22, 2006 9:38 AM
To: [log in to unmask]
Subject: Re: [HP3000-L] Regarding decimal 28 as delimiter.

SYMBOLIC CHARACTER is completely portable.  It also gives you an easy way to
change the separator character you're using throughout your code.

I'd recode it thus:

IDENTIFICATION DIVISION.                             
PROGRAM-ID.     HELLOWORLD.                          
                                                     
                                                     
ENVIRONMENT DIVISION.                           
SPECIAL-NAMES.
    SYMBOLIC CHARACTERS MY-SEPARATOR IS 29.
*  MY-SEPARATOR is ASCII 28; Ordinal 29    
INPUT-OUTPUT SECTION.                                
FILE-CONTROL.                                        
SELECT StudentFile ASSIGN TO "STUDENTS"              
            ORGANIZATION IS LINE SEQUENTIAL.         
                                                     
DATA DIVISION.                                       
FILE SECTION.                                        
FD StudentFile.                                      
01 StudentDetails.                                   
   02  StudentId       PIC 9(7).                     
   02  DELIM1          PIC X.                        
   02  StudentName.                                  
       03 Surname      PIC X(8).                     
       03 Initials     PIC XX.                       
   02  DELIM2          PIC X.                        
   02  Gender          PIC X.                        
WORKING-STORAGE SECTION.                             
01 MStudentDetails.                                  
   02  MStudentId       PIC 9(7).                    
   02  MDELIM1          PIC X VALUE MY-SEPARATOR.             
   02  MStudentName.                                 
       03 MSurname      PIC X(8).                    
       03 MInitials     PIC XX.                      
   02  MDELIM2          PIC X VALUE MY-SEPARATOR.             
   02  MGender          PIC X.                       
                                                     
                                                     
                                                     
PROCEDURE DIVISION.                                  
BEGIN.                                               
    OPEN OUTPUT StudentFile                          
    DISPLAY "Enter student details using temp below" 
    PERFORM GetStudentDetails                        
    PERFORM UNTIL MStudentID = 0                     
     MOVE MSTUDENTDETAILS TO STUDENTDETAILS          
     WRITE STUDENTDETAILS                            
     PERFORM GetStudentDetails                       
    END-PERFORM                                      
    CLOSE StudentFile                                
STOP RUN.                                            
GetStudentDetails.                                   
    DISPLAY "ENTER STU ID ".                         
    ACCEPT  MSTUDENTID.                              
    DISPLAY "ENTER STUDENT NAME."                    
    ACCEPT MSTUDENTNAME.                             
    DISPLAY "ENTER GENDER"                           
    ACCEPT MGENDER.                                  
 

Regards.

Glenn

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *