3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
|
# File 'lib/active_record/connection_adapters/ibm_db_adapter.rb', line 3313
def execute_and_auto_confirm(sql)
begin
qcmdexc2 "QSYS/CHGJOB INQMSGRPY(*SYSRPYL)"
qcmdexc2 "ADDRPYLE SEQNBR(9876) MSGID(CPA32B2) RPY(''I'')"
rescue Exception => e
raise "Could not call CHGJOB INQMSGRPY(*SYSRPYL) and ADDRPYLE SEQNBR(9876) MSGID(CPA32B2) RPY('I').\n" +
"Do you have authority to do this?\n\n" + e.to_s
end
r = execute sql
begin
qcmdexc2 "QSYS/CHGJOB INQMSGRPY(*DFT)'"
qcmdexc2 "RMVRPYLE SEQNBR(9876)"
rescue Exception => e
raise "Could not call CHGJOB INQMSGRPY(*DFT) and RMVRPYLE SEQNBR(9876).\n" +
"Do you have authority to do this?\n\n" + e.to_s
end
r
end
|