Interested to Buy Any Domain ? << Click Here >> for more details...
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
- 4757 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
What is dynslt?
what is the function of cpyf command?
can a indexed file be accessed in arrival sequence in rpg program?
how do handle file exception/error?
what is maximum number of arrays allowed in rpg?
what is join logical file?
how can I start a page in a new window?
What is the maximum number of subfiles that can be specified in a display file?
Can level check error occur if we do chgpf?
what is the maximum number of fields under a record format of physical file?
what is the sequence when using cursor?
what is the version of os/400 that we have?
WHAT IS AS/400 SYNORIO?
what is xfoot opcode ?
how can I automatically refresh a web page?
