)ATTR DEFAULT(%+_) % TYPE(TEXT ) INTENS(HIGH) SKIP(ON) + TYPE(TEXT ) INTENS(LOW ) SKIP(ON) Ä TYPE(TEXT ) INTENS(HIGH) SKIP(ON) HILITE(&REV1) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON ) JUST(LEFT ) HILITE(USCORE) § TYPE(INPUT) INTENS(HIGH) CAPS(ON ) JUST(RIGHT) PAD(' ') HILITE(USCORE) ! TYPE(OUTPUT) INTENS(LOW ) CAPS(OFF) JUST(LEFT) PAD(' ') TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) JUST(RIGHT) PAD(' ') )BODY EXPAND(//) %%/-/ Text fuer SQLCODE anzeigen (DSNTIAR) %/-/ Ä=>_ZCMD +SQLCODE :_Z + + +SQLMSG Z1 :!Z + + + + + + + ÄF3+=ÄENDE + )INIT .ZVARS = '(SQLCODE + msg400 + )' .HELP = CECTHELP .CURSOR = ZCMD &ZCMD = &Z )REINIT REFRESH(*) .CURSOR = ZCMD )PROC &PFTASTE = .PFKEY &PFINHALT = TRUNC(&PFTASTE,2) &PFINHALT = .TRAIL &PFINHALT = PFK(&PFINHALT) &PANELRC = 0 IF (.RESP = END,RETURN) &PANELRC = 4 .RESP = ENTER IF (&PFINHALT = RETURN) &PANELRC = 8 .RESP = ENTER IF (&ZCMD = CAN,CANCEL) &PANELRC = 9 .RESP = ENTER &VZCMD1 = TRUNC(&ZCMD,' ') &VZCMD2 = .TRAIL )END