Hi friends i have i question please reply me asap.
what would be coding in DDS and programing part for this
condition suppose that i have three fields in the display
file(subfile)which has 7 record format.
Condition is ''The supplier LOT, ISSUED TO PROD and LINE
GRP fields in display file(Subfile) will not be shown if
their respective fields are blank/zero in the record formats
WIM311FM and Record format WIM311FM.
I want coding part in DDS and Programing.
Please reply me as soon as posible.
- 1 Answers
- 4039 Views
- IBM, I also Faced
- E-Mail Answers
Answer / syam
This for Display file
Be4 writing the Subfile record you need to clear first.
A R PCKSFL SFL
A SFLNXTCHG
A LOT 17A O 9 40COLOR(WHT)
A ISSUED TO PROD 9A O 9 40COLOR(WHT)
A LINE GRP 5Y 0O 9 3EDTCDE(Z)
A POINT 4S 0H
A R PCKCTL SFLCTL(PCKSFL)
A OVERLAY
A 80 SFLDSP
A 80 SFLDSPCTL
A N80 SFLCLR
A N81 SFLEND(*MORE)
A SFLSIZ(0008)
A SFLPAG(0007)
Program Part in RPG
FPICKSLD CF E WORKSTN USROPN
F POINT KSFILE PCKSFL
C PROCES BEGSR
C EXSR CLRSFL
C READ PICK01 41
C *IN41 DOWEQ*OFF
C ADD 1 POINT
C WRITEPCKSFL
C ENDIF
C READ PICK01 41
C ENDDO
C WRITEPCKCTL
C ENDDO
C ENDSR
* BE4 LOADING SLF HERE IT IS CLEARING
C CLRSFL BEGSR
C Z-ADD0 POINT
C Z-ADD0 SLNO
C SETOF 80
C WRITEPCKCTL
C SETON 80
C ENDSR
| Is This Answer Correct ? | 0 Yes | 1 No |
how do we know batch job aborted after we submitting it
how will you search an array?
what is the command to rtrieve system date? options:1.rtvsysval 2.rtvjoba 3.rtvjobd 4.both a and b
How do you check object lock
what are the various types of device files?
Define the purpose of the following code (If you know, how would this be written in RPG ILE) HI LO EQ C *IN66 DOUEQ *OFF C KEY1 CHAIN FILEA 90 66 C 66 CALL PGM1 PRM C ENDDO
What is the purpose of OVRATA keyword ?
how to get no of records in file in rpg with out cl cmd
What is Multi-format logical file?
how can I start a page in a new window?
is it possible to create a physical file without dds?
How can we create subsystem in as400?
RPG400 
