rs6000¤ÎWiki

¤½¤Î¥Þ¥·¥ó¤Ë¸ºß¤¹¤ëÁ´¤Æ¤Î¥½¡¼¥¹¥ê¥¹¥È¡Ê¥á¥ó¥Ð¡Ë¤Î¾ðÊó¤ò¼ý½¸¤·¤Þ¤¹¡£

»öÁ°¤Ë°Ê²¼¤Î¥³¥Þ¥ó¥É¤òÍѤ¤¤ÆʪÍý¥Õ¥¡¥¤¥ëWK1¤òºîÀ®¤·¤Æ¤¯¤À¤µ¤¤¡£

DSPFD FILE(*LIBL/*ALL) TYPE(*BASATR) OUTPUT(*OUTFILE) OUTFILE(QTEMP/WK1)

     H DFTACTGRP(*NO) ACTGRP(*CALLER) DATEDIT(*YMD/) DATFMT(*YMD/)
      *
     FWK1       IF   E           K DISK    USROPN
      *
     D QCMDEXC         PR                  EXTPGM('QCMDEXC')
     D  cmdString                 32702    options(*varsize)
     D                                     const
     D  cmdLen                       15p 5 CONST
      *
     D cmd1            S            256a   INZ(*blank)
     C                   MONITOR
      /free
          // ¥Õ¥¡¥¤¥ëµ­½Ò¤Î¼èÆÀ
          cmd1 = 'DSPFD FILE(*ALLUSR/*ALL) TYPE(*BASATR) ' +
                 'OUTPUT(*OUTFILE) FILEATR(*PF) OUTFILE(QTEMP/WK1)' ;
          QCMDEXC(cmd1:%len(%trim(cmd1)));
          open WK1 ;
          dou (%eof(WK1)) ;
            read WK1 ;
            if (ATDTAT = 'S') ;
              cmd1 = 'DSPFD FILE(' + %trim(ATLIB) + '/' + %trim(ATFILE) +
                     ') TYPE(*MBRLIST) OUTPUT(*OUTFILE) ' +
                     'OUTFILE(QTEMP/WK2) OUTMBR(*FIRST *ADD)' ;
              QCMDEXC(cmd1:%len(%trim(cmd1)));
            endif ;
          enddo ;
          close WK1 ;
          *inLR = *on ;
          return ;
      /End-Free
     C                   ON-ERROR
     C                   ENDMON