Tweet
RUNSQLSTM vs STRQMQRY vs Embedded SQL
PGM
QSH CMD('db2 ''create table yourlib.file1 as +
(select * from yourlib.file2) with data''')
ENDPGM
PGM
DCL VAR(&FILE1) TYPE(*CHAR) LEN(10) VALUE('file1')
DCL VAR(&FILE) TYPE(*CHAR) LEN(10) VALUE('file2')
DCL VAR(&QSHCMD) TYPE(*CHAR) LEN(100)
CHGVAR VAR(&QSHCMD) VALUE('db2 ''''create table +
yourlib.''||&FILE1||'' as (select * from +
yourlib.''||&FILE2||'') with data)''''')
QSH CMD(&QSHCMD)
ENDPGM
For example, 'cp -r /qopt//somedir' recursively copies files from the
AS/400 built-in CD-ROM to directory/somedir and retains its tree structure.
b. Find a string in an IFS text file. For example, 'grep foo/mydir/*'
searches for string foo in all the files residing in directory/mydir.
c. Zip and unzip stream files.
For example, 'jar cvf x.zip/mydir/*.*' zips all files from directory
mydir to a new zip file named x.zip.
d. Find files in the IFS using different criteria options and
optionally performing functions on those files.
For example, find '/mydir -name test* -exec rm {} \;'
searches for files starting with "test" in directory mydir
(recursively) and deletes each file it finds. For more
information on QShell, visit the iSeries QShell page
insert into ava
(avsku, aviloc, avqoh)
select inumbr, istore,
CASE
When fcsku is null then
(ibhand-ibarqt-ibnsqt-ibhldq-ibphnd)
When fcnqty <= 0 then
(ibhand-ibarqt-ibnsqt-ibhldq-ibphnd)
When fcnqty > 0 then
(fcnqty - ibarqt)
END as onhand
from dfm inner join invbal on fmsku=inumbr and fmiloc=istore
Left outer join fcsbal on fmsku = fcsku and fmiloc = fcstor
where fmiloc<>290 and
CASE
When fcsku is null then
(ibhand-ibarqt-ibnsqt-ibhldq-ibphnd)
When fcnqty <= 0 then
When fcnqty <= 0 then
(ibhand-ibarqt-ibnsqt-ibhldq-ibphnd)
When fcnqty > 0 then
(fcnqty - ibarqt)
END <> 0
union
select fmsku, fmiloc, ffoh
from dfm inner join fflinvpf on fmsku=fnumbr
where fmiloc=290 and ffoh<>0
Comment