¤½¤Î¥Þ¥·¥ó¤Ë¸ºß¤¹¤ëÁ´¤Æ¤Î¥½¡¼¥¹¥ê¥¹¥È¡Ê¥á¥ó¥Ð¡Ë¤Î¾ðÊó¤ò¼ý½¸¤·¤Þ¤¹¡£
»öÁ°¤Ë°Ê²¼¤Î¥³¥Þ¥ó¥É¤òÍѤ¤¤ÆʪÍý¥Õ¥¡¥¤¥ë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
¤³¤Î¥Ú¡¼¥¸¤Ø¤Î¥³¥á¥ó¥È
FQGgsT I think this is a real great post.Much thanks again. Will read on...
zhTCmf <a href="http://ygqriitwxssa.com/">ygqriitwxssa</a>, [url=http://omlihofssxaf.com/]omlihofssxaf[/url], [link=http://plkivvypithb.com/]plkivvypithb[/link], http://iprguojkbltu.com/