Code: Select all
H BNDDIR('PROFOUNDUI')
Code: Select all
H BNDDIR('PROFOUNDUI')
Code: Select all
H DFTACTGRP(*NO) ACTGRP(*NEW)
H BNDDIR('PROFOUNDUI')
FUNVBRF CF E WorkStn Handler('UNIVERSAL(HANDLER)')
F USROPN
/COPY QCPYLESRC,SYCDXFUSO
/COPY QPROTO,SYSTEMCMD
/COPY PROFOUNDUI/QRPGLEINC,PUISYNCR
/COPY QCPYLESRC,SYCDXD
/COPY QCPYLESRC,LDAUDS400
/COPY QCPYLESRC,PGMDS
/COPY QCPYLESRC,SYCDXI
/FREE
//monitor;
// system('ADDLIBLE LIB(ICSUI) POSITION(*LAST)');
//on-error;
//endmon;
//monitor;
// system('ADDLIBLE LIB(ICS) POSITION(*LAST)');
//on-error;
//endmon;
//monitor;
// system('ADDLIBLE LIB(PROFOUNDUI) POSITION(*LAST)');
//on-error;
//endmon;
SyncJob(*ON);
open unvbrf;
open sycdx;
*IN95 = *ON;
Read HEADER;
Write HEADER;
if required <> 'Y';
BrName = *blanks;
BrCde = *blanks;
Write DETAIL;
endif;
if aster = 'Y';
BrName = '*';
BrCde = '*';
Write DETAIL;
endif;
sxkey = *blanks;
sxcomp = mycomp;
sxnem = 'BR ';
setll sxkeyc sycdx;
reade sxkeyc sycdx;
DoW Not %EOF();
BrName = scbrcd + '-' + %trim(scbnam);
BrCde = scbrcd;
Write DETAIL;
Reade sxkeyc sycdx;
EndDo;
Write FOOTER;
*InLr = *On;
/END-FREE
Users browsing this forum: Bing [Bot] and 0 guests