Ü  WRITE (Write to a File Record format)

 

Example

         


0105.00 C*_______________CLEAR SUBFILE_____________________                   
0106.00 C*_________________________________________________                    
0107.00 C     CLRSFL        BEGSR                                              
0108.00 C                   EVAL      RRN=0                                    
0109.00 C                   SETON                                        50    
0110.00 C                   WRITE     EXPD_CTL                                 
0111.00 C                   SETOFF                                       50    
0112.00 C                   ENDSR
 
       
    
0126.00 C*_______________FILL SUBFILE__________________                        
0127.00 C*_________________________________________________                    
0128.00 C*                                                                     
0129.00 C     FILSFL        BEGSR                                               
0130.00 C                   SETON                                        52    
0131.00 C                   SETOFF                                       45    
0132.00 C                   EVAL      FIRSTRRN=RRN+1                            
0133.00 C                   DO        SFLPAG                                   
0134.00 C                   READ(N)   REC1                                     
0135.00 C                   IF        %EOF(MASTER)                             
0136.00 C                   EVAL      *IN45=%EOF(MASTER)                       
0137.00 C                   LEAVESR                                            
0138.00 C                   ENDIF                                              
0139.00 C                   EVAL      S_ORG=ORG                               
0140.00 C                   EVAL      S_ACC=ACC                                
0141.00 C                   EVAL      S_CCY=CCY                                
0142.00 C                   ADD       1             RRN                        
0143.00 C                   WRITE     EXPD_SFL                                 
0144.00 C                   ENDDO                                              
0145.00 C                   SETOFF                                       52    
0146.00 C                   ENDSR 
 
 
0148.00 C*                                                                     
0149.00 C     DSPSFL        BEGSR                                              
0150.00 C                   SETON                                        5152  
0151.00 C                   WRITE     HEADER                                   
0152.00 C                   WRITE     FOOTER                                   
0153.00 C                   EXFMT     EXPD_CTL                                 
0154.00 C                   ENDSR
 
 
 
0020.43 C     WRITEPF       BEGSR                                              
0020.45 C                   READC     ACC_SFL                              95  
0020.46 C                   DOW       NOT %EOF() AND @ERROR='N' AND *IN95=*OFF 
0020.47 C                   EVAL      ORG=A_ORG                                
0020.48 C                   EVAL      ACC=A_ACC                                
0020.49 C                   EVAL      CCY=A_CCY                                
0020.50 C                   EVAL      ACCMNGR=A_MNGR                           
0020.51 C                   EVAL      COUNTRY=A_CNTRY                          
0020.52 C                   EVAL      PARTY=S_PNUM                             
0020.54 C                   WRITE     REC5                                     
0020.58 C                   SETOFF                                       66    
0020.59 C                   UPDATE    ACC_SFL                                  
0020.60 C                   READC     ACC_SFL                              95  
0020.61 C                   ENDDO                                          
0020.63 C                   ENDSR

 










User Comments:



Subscribe

  Email:



Copyright © Go4as400.com, 2013-2017. Copyright notice