H DATEDIT(*YMD) DFTACTGRP(*NO) ACTGRP(*CALLER) BNDDIR('QC2LE') DEBUG(*YES) D TP01 PR D in1 10A D in2 10A * sprintf´Ø¿ô D sprintf PR 10u 0 extProc('sprintf') D string * VALUE D format * VALUE OPTIONS(*STRING) D parm1 * VALUE OPTIONS(*STRING:*NOPASS) D parm2 * VALUE OPTIONS(*STRING:*NOPASS) D parm3 * VALUE OPTIONS(*STRING:*NOPASS) D parm4 * VALUE OPTIONS(*STRING:*NOPASS) * D PSDS SDS D CPFMSG 7a OVERLAY(PSDS:40) * D QCMDEXC PR EXTPGM('QCMDEXC') D cmdString 32702 options(*varsize) D const D cmdLen 15p 5 CONST * D TP01 PI D in1 10A D in2 10A * D cmd1 S 256a INZ(*blank) D cmd2 S 256a INZ(*blank) D wk01 S 128a * /Free //ÉáÄ̤˥³¥Þ¥ó¥Éʸ»úÎó¤òÁȤßΩ¤Æ¤ë cmd1 = 'DSPFD FILE(' + %trim(in1) + '/' + %trim(in2) + ') OUTPUT(*PRINT)' ; QCMDEXC(cmd1:%len(%trim(cmd1))); // sprintf¤Ç¥³¥Þ¥ó¥Éʸ»úÎó¤òÁȤßΩ¤Æ¤ë wk01 = 'DSPFD FILE(%s/%s) OUTPUT(*PRINT)'; sprintf(%addr(cmd2):%trim(wk01):%trim(in1):%trim(in2)) ; DUMP ; QCMDEXC(cmd2:%len(%trim(cmd2))-1); *inlr = *on ; return ; /End-Free
WRKJOB¤·¤¿·ë²Ì
¥¸¥ç¥Ö¡¦¥¹¥×¡¼¥ë¡¦¥Õ¥¡¥¤¥ë¤Î½èÍý ¥¸¥ç¥Ö : PRIMULADSP ¥æ¡¼¥¶¡¼ : PRIMULA ÈÖ¹æ : 123456 ¥ª¥×¥·¥ç¥ó¤òÆþÎϤ·¤Æ¡¤¼Â¹Ô¥¡¼¤ò²¡¤·¤Æ¤¯¤À¤µ¤¤¡£ 1= Á÷¿® 2= Êѹ¹ 3= ÊÝα 4= ºï½ü 5= ɽ¼¨ 6= ²òÊü 7= ¥á¥Ã¥»¡¼¥¸ 8= °À 9= °õºþ¾õ¶·¤Î½èÍý ¹ç·× ÁõÃÖ¡¿ ¥æ¡¼¥¶¡¼ sŽßŽ°ŽÆŽÞ ¸½¹Ô OPT ¥Õ¥¡¥¤¥ë ÂÔ¤Á¹ÔÎó ¥Ç¡¼¥¿ ¾õ¶· ¿ô sŽßŽ°ŽÆŽÞ Éô¿ô TP01 FIN QPDSPFD FIN QPPGMDMP FIN QPDSPFD FIN QPDSPFD P000 RDY 7 1 QPPGMDMP QEZDEBUG RDY 3 1 QPDSPFD P000 RDY 7 1 ½ª¤ï¤ê ¥ª¥×¥·¥ç¥ó 1, 2, 3, ¤Î¥Ñ¥é¥á¡¼¥¿¡¼¤Þ¤¿¤Ï¥³¥Þ¥ó¥É ===> F3= ½ªÎ» F10=ŽÍŽÞŽ¬Ž°3 F11= ¥Ó¥å¡¼£² F12= ¼è¤ê¾Ã¤· F22= °õºþÁõÃÖ F24= ¥¡¼¤Î³¤ ¤¹¤Ç¤Ë¶è°è¤ÎºÇ²¼Éô¤¬É½¼¨¤µ¤ì¤Æ¤¤¤ë¡£
CMD1 CHAR(256) 'DSPFD FILE(SAMPLEDB/EMPLOYEE) OUTPUT(*PRINT) ' 81 ' ' 161 ' ' 241 ' ' VALUE IN HEX 'C4E2D7C6C440C6C9D3C54DE2C1D4D7D3C5C4C261C5D4D7D3D6E8C5C55D40D6E4E3D7E4E34D5CD7D9'X 41 'C9D5E35D404040404040404040404040404040404040404040404040404040404040404040404040'X 81 '40404040404040404040404040404040404040404040404040404040404040404040404040404040'X 121 '40404040404040404040404040404040404040404040404040404040404040404040404040404040'X 161 '40404040404040404040404040404040404040404040404040404040404040404040404040404040'X 201 '40404040404040404040404040404040404040404040404040404040404040404040404040404040'X 241 '40404040404040404040404040404040'X CMD2 CHAR(256) 'DSPFD FILE(SAMPLEDB/EMPLOYEE) OUTPUT(*PRINT) ' 81 ' ' 161 ' ' 241 ' ' VALUE IN HEX 'C4E2D7C6C440C6C9D3C54DE2C1D4D7D3C5C4C261C5D4D7D3D6E8C5C55D40D6E4E3D7E4E34D5CD7D9'X 41 'C9D5E35D004040404040404040404040404040404040404040404040404040404040404040404040'X 81 '40404040404040404040404040404040404040404040404040404040404040404040404040404040'X 121 '40404040404040404040404040404040404040404040404040404040404040404040404040404040'X ³¤¯ .¤Ê¤Ë¤²¤ËCMD2¤Îʸ»ú¤ÎºÇ¸å¤ËNULL(x'00')¤¬ÁÞÆþ¤µ¤ì¤Æ¤¤¤Þ¤¹
¤³¤Î¥Ú¡¼¥¸¤Ø¤Î¥³¥á¥ó¥È
cqNqiC Fantastic blog.Much thanks again. Much obliged.