In this they asked to create two screens SCREEN1 and SCREEN2 ...
In SCREEN1 we will give input of four fields .....STYLE , COLOR , VARIATION , and SOLD....
These values shuld be present in First file....LFSTYB7.
In the Second SCREEN the values entered in first screen1...Should Fetch According to first file key fields..if this present in first file the matched records
should be selected in file two MSTABLE and if the matched records are present it should select from third (LFODEC16) and fourth(SLDLF11) like five and six (WIPLF7A & LFWIPC13).....
These records should come according key fileds in the files....
i just created for three files .....i'm not able get records from fourth and fifth & sixth files ....will u guide me the code..
see the below program and check the errors please...upto now i'm getting three files data based on key fields ...
I want for fourth & fifth & sixth files data ....i want logic for selection of key fields 4,5,6 files
0004.00 FLFSTYB7 IF E K DISK
0004.01 FLFODEC24IF E K DISK
0004.02 FSLDLF9 IF E K DISK
0006.00 FPD1 CF E WORKSTN
0007.00 F RRN1 KSFILE SCR2
0008.00 C Z-ADD0 RRN1 20
0008.01 C LIST1 KLIST
0008.02 C KFLD SBSTY
0008.03 C KFLD SBSHDE
0008.04 C KFLD SBCLR
0008.05 C KFLD SBDIM
0009.00 C LIST2 KLIST
0010.00 C KFLD SECO
0011.00 C KFLD SEDIV
0011.01 C KFLD SEDSLD
0011.04 *
0011.04 *
0011.05 C LIST3 KLIST
0011.06 C KFLD CSOCO
0011.07 C KFLD CSOSLD
0011.08 C KFLD CSODIV
0015.00 *
0015.09 *
0016.00 C *IN01 DOWEQ*OFF
0017.00 C EXFMTSCR1
0018.00 C MOVE '0' S21
0019.00 C MOVE '0' S22
0020.00 C MOVE '0' S24
0021.00 C MOVE '0' S25
0022.00 C MOVE S4 DS4 5
0023.00 C '0' CHECKDS4 POS 10
0024.00 C SUBSTDS4:POS RES 5
0025.00 C MOVE S1 S21
0026.00 C MOVE S2 S22
0027.00 C MOVE S3 S24
0028.00 C MOVE S4 S25
0029.00 C MOVE S21 SBSTY
0030.00 C MOVE S22 SBCLR
0031.00 C MOVE S24 SBDIM
0032.00 C MOVE S25 SBSHDE
0032.01 **************
0033.00 C LIST1 SETLLSBOKRECD 60
0034.00 C *IN60 IFEQ *OFF
0035.00 C READ SBOKRECD 90
0035.01 **************
0035.02 C LIST1 SETLLODECRECD 60
0035.03 C *IN60 IFEQ *OFF
0035.04 C LIST1 READEODECRECD 91
0035.05 **************
0035.06 C LIST2 SETLLSOLDRECD 60
0035.07 C *IN60 IFEQ *OFF
0035.08 C LIST2 READESOLDRECD 91
0035.09 **************
0035.13 **************
0036.00 C *IN91 DOWEQ*OFF
0037.00 C RRN1 ANDLE9998
0038.00 C ADD 1 RRN1
0039.00 C WRITESCR2
0039.01 C LIST1 READEODECRECD 91
0041.01 C ENDDO
0041.02 **************
0041.03 C SETON 30
0041.04 C SETON 31
0041.05 C SETON 33
0041.06 C EXFMTCTL2
0041.07 **************
0042.02 C ENDIF
0042.03 C ENDIF
0042.04 C ENDIF
0042.05 **************
0047.00 C ENDDO
0047.01 C SETON LR
0048.00 C RETRN
****************** End of data ****************************************
Comment