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
- 4806 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 |
if &var='good++++' &var2='day' &var *cat &var2 &var1 *tcat &var2 what is output
what are the three line types in rlu ?
what is the purpose of ovrdta and ovrata keywords ?
What are all the compiler directive statements?
What is FCFO, FIFO, LIFO in Database environment ?
What are the types of data structure in as400?
what is the use of data structures?
some special characters I key in my html source members show different on my web pages. Why? How can I solve this?
what is rpg ?
what opcode could be used to test an alphanumeric field for all numeric values?
1) Can we declare a Display file in CL? 2) How many no. of files can be declared in a CL? 3) What is Non-Join Logical file and its importance?
Which command we can use to update a physical file using c.l pgm?
RPG400 
