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
- 4232 Views
- IBM, I also Faced
- E-Mail Answers
Answer Posted / 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 |
Post New Answer View All Answers
How Many Specs Are There In Rpg & Which Are They?
Can level check error occur if we do chgpf?
what is the difference between *like and *namvar ?
how can I give more performance to some selected pages?
Difference Between Skip Before & Space Before?
how to write code for singlepage in sqlrpgle with update ?
what is a non-join logical file?
what is sflinz and sflrna?
how many printer files maximum can be used in single rpg program?
can you display a empty subfile?
what are the various types of device files?
. How to know why the OPM job is in MSGWAIT state?..WHAT COULD BE THE REASON FOR it?
Why we are not able to perform insert delete and update operation in Join logical file?
how can a cgi check whether an ifs object is available?
what is a spool file?
