× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. MIDRANGE-L
  3. September 2004

Re: Would anybody know of a way, from a CL program, . . .





An example of such a CLP:
PGM
DCLF       FILE(QADSPFFD) OPNID(PF)
DCLF       FILE(ECRAN) OPNID(DSPF)
  DSPFFD     FILE(*CURLIB/*ALL) OUTPUT(*OUTFILE) +
               OUTFILE(QTEMP/LISTZONS)
  OVRDBF     FILE(QADSPFFD) TOFILE(LISTZONS)
  SNDRCVF    RCDFMT(SAISIE) OPNID(DSPF)
    DOWHILE    COND(&DSPF_IN03 *EQ '0')
      RCVF       OPNID(PF)
      MONMSG     MSGID(CPF0864) EXEC(RETURN)
      IF         COND(&PF_WHFLDI *EQ &DSPF_NOMZON *AND +
                   &PF_WHRFIL *NE &DSPF_REPERT *AND +
                   &PF_WHFTYP *EQ 'P') THEN(DO)
        CHGVAR     VAR(&DSPF_WHFILE) VALUE(&PF_WHFILE)
        SNDRCVF    RCDFMT(RESULT) OPNID(DSPF)
        ENDDO
    ENDDO
ENDPGM
Needs V5R3, however...

Bonne réception/Best regards
Richard THEIS
  iSeries Education, France

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.