zOs/REXX/DREPWSH
$#@
call sqlConnect dbaf
$=tb=PTI.PTRCQ_SAVED_RPTS
if 1 then
call sqlUpdate , "insert INTO" $tb ,
"select userid, '??', '??', version, 0, ''" ,
", char(current timestamp) ",
"from" $tb "where userid = 'KIDI63' order by version desc" ,
"fetch first row only"
call sqlDisconnect
$#out 20130122 12:53:55
$#out 20130122 12:53:29
*** run error ***
SQLCODE = -104: ILLEGAL SYMBOL "?". SOME SYMBOLS THAT MIGHT
BE LEGAL ARE: AT MICROSECONDS MICROSECOND SECONDS SECOND MINUTES
MINUTE HOURS
src insert INTO
+ PTI.PTRCQ_SAVED_RPTS select userid, '??, '??', version, 0, '' , c...
> >>>pos 55 of 193>>>
stmt = insert INTO PTI.PTRCQ_SAVED_RPTS select userid, '??, '??', version, 0, ''
$#out 20130122 12:52:58
*** run error ***
SQLCODE = -104: ILLEGAL SYMBOL "?". SOME SYMBOLS THAT MIGHT
BE LEGAL ARE: AT MICROSECONDS MICROSECOND SECONDS SECOND MINUTES
MINUTE HOURS
src insert INTO
+ PTI.PTRCQ_SAVED_RPTS select userid, '??, '??, version, 0, '' , ch...
> >>>pos 55 of 192>>>
stmt = insert INTO PTI.PTRCQ_SAVED_RPTS select userid, '??, '??, version, 0, ''
$#out 20130122 12:52:14
*** run error ***
no class found for object insert INTO PTI.PTRCQ_SAVED_RPTS select userid, '??, '
$#out 20130122 12:52:10
*** run error ***
no class found for object insert INTO PTI.PTRCQ_SAVED_RPTS select userid, '??, '
$#out
INSERT NSERT
INTO PTI.PTRCQ_SAVED_R INTO PTI.PTRCQ_SAVED_RPTS
( SELECT 'KIDI63', ( SELECT 'KIDI63',TYPE,SUB_TYPE,VERSI
COL_ORDER,RPT_IN COL_ORDER,RPT_INFO,COLNAME
FROM PTI.PTRCQ_S FROM PTI.PTRCQ_SAVED_RPTS
WHERE USERID = 'A390880') --SOURCE USER
;