19. October 2011 by admin.

PGM

DCL &MBROPT *CHAR 10 VALUE(’*REPLACE’)

DCL &OUTFILE *CHAR 10 VALUE(’ALLAUTL’)

DCL &OUTLIB *CHAR 10 VALUE(’TLIB’)

DCLF QADSPOBJ

DSPOBJD    OBJ(QSYS/*ALL) OBJTYPE(*AUTL) +

OUTPUT(*OUTFILE) OUTFILE(QTEMP/AUTL)

OVRDBF QADSPOBJ QTEMP/AUTL

READ:       RCVF

MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(EOF))

DSPAUTLOBJ AUTL(&ODOBNM) OUTPUT(*OUTFILE) +

OUTFILE(&OUTLIB/&OUTFILE) OUTMBR(*FIRST +

&MBROPT)

MONMSG     MSGID(CPF6250 CPF9800) EXEC(GOTO CMDLBL(READ))

CHGVAR &MBROPT ‘*ADD’

GOTO READ

EOF: RETURN

ENDPGM

Posted in CL | No Comments »

17. October 2011 by admin.

Example

SELECT sdfcabn.stcuno FROM sdfcabn WHERE not exists (select * from

cufship where cufship.stcuno = sdfcabn.stcuno)

Posted in SQL | No Comments »

17. October 2011 by admin.

Comments kill trees

Most programmers print off programs, by not commenting your code you will be saving trees.

Let’s all be green programmers.

Posted in Uncategorized | No Comments »