SYNTAX CODE TO READ FILE A TO MATCH THE FILE B (USING AS400 PROGRAMMING LANGUAGE)

SYNTAX CODE PROGRAM TO READ FILES

This syntax program, it can read all record files
in your computer A, then match to Computer B
CL0N01Factor1+++++++Opcode&ExtFactor2+++++++
Result++++++++Len++D+HiLoEq....Comments+++++
+++++++C     *LOVAL        SETLL     RFILEA                                                     
C                   READ      RFILEA                                                       
C                   DOW       NOT %EOF(FILEA)                                           
C*                                                                                           
C                   OPEN      FILEB                                                         
C     SKUN          CHAIN     RFILEB                                                       
C                   IF        %FOUND(FILEB)                                                 
C                   EVAL      FLDQTY1B = FLDQTY1A                                               
C                   UPDATE    RFILEB                                                       
C*                                                                                           
C                   ENDIF                                                                   
C                   CLOSE     FILEB                                                         
C*                                                                                           
C                   READ      RFILEA                                                       
C                   ENDDO                                                                   
C*                                                                                           
                                                               
-----
Where:
File name : FILEA
Record Name : RFILEA
Field Name : FLDQTY1A

File name : FILEB
Record Name : RFILEB
Field Name : FLDQTY1B

C* ------------------------------------------------------------------   
C*                                                                     
C           *ENTRY    PLIST                                             
C                     PARM           QPARM1256                         
C                     PARM           P1STOR  5                         
C*                                                                     
C* IF PARMS WERE PASSED WHEN THE PROGRAM WAS CALLED USE THEM           
C* ELSE USE SYSGET TO RETIEVE VALUES                                   
C*                                                                     
C           QPARMS    IFGT 0                                           
C                     MOVE QPARM1    PARM1                             
C                     END                                               
C*                                                                     
C*          CANCOD IS IN THE SYSTEM PARM AREA                           
C*                                                                     
C           CANCOD    CASEQ'OPEN    'EXIT               OPN JOB         
C           CANCOD    CASEQ'CANCEL  'ENDJOB             END JOB         
C           CANCOD    CASEQ'LRLRLRLR'ENDJOB             END JOB         
C                     END

Share: