Und hier wäre noch das zugehörige DSP-File:

A DSPSIZ(24 80 *DS3)
A REF(*LIBL/VMKRF001)
A PRINT
A* INDARA
A CF04(04)
A CF12(12)
A ALTHELP(CA01)
A HELP
A HLPDOC('DMYHILFE' 'DUMYHELP' 'INTKL-
A ')
A************************************************* ****************
A* WINDOWS DEFINITION
A************************************************* ****************
A R VMKDR114W
A WINDOW(07 05 06 72)
A WDWBORDER((*COLOR BLU) (*DSPATR RI)-
A (*CHAR ' '))
A USRRSTDSP
A************************************************* ****************
A* V M K D R 1 1 4 S - Subfile HAUPTRECORD
A************************************************* ****************
A R VMKDR114S SFL
A 3 1'Connection'
A COLOR(BLU)
A CONROLTXT 20A B 3 12COLOR(WHT)
A 3 34 'Contract'
A COLOR(BLU)
A CTNOAFT 5A B 3 44COLOR(WHT)
A 3 50'Shortname'
A COLOR(BLU)
A CTNOAFTSH 10A B 3 61COLOR(WHT)
A*N60 DSPATR(ND)
A************************************************* ****************
A* V M K D R 1 1 4 C - Subfile CONTROLRECORD
A************************************************* ****************
A R VMKDR114C SFLCTL(VMKDR114S)
A SFLSIZ(0015)
A SFLPAG(0003)
A WINDOW(VMKDR114W)
A OVRDTA
A PUTOVR
A OVERLAY
A KEEP
A N92 ROLLUP
A 91 SFLDSP
A SFLDSPCTL
A 93 SFLCLR
A* SFLEND(*MORE)
A 01 CSRLOC(LIN POS)
A RTNCSRLOC(&RCD &FLD)
A DSPREC 3S 0H SFLRCDNBR(CURSOR)
A RECNBR 4S 0H
A LIN 3S 0H
A POS 3S 0H
A FLD 10A H
A RCD 10A H
A AKTION 6A O 1 2COLOR(WHT)
A 1 9'Connection'
A COLOR(WHT)
A************************************************* ****************
A* MESSAGE SUBFILE
A************************************************* ****************
A R MSGSFL SFL SFLMSGRCD(24)
A MSGKY SFLMSGKEY
A MPGMQ SFLPGMQ
A************************************************* ****************
A* MESSAGE SUBFILE CONTROL
A************************************************* ****************
A R MSGCTL SFLCTL(MSGSFL)
A SFLSIZ(12) SFLPAG(1)
A SFLDSP
A SFLINZ
A OVERLAY PUTOVR KEEP
A 95 SFLCLR
A N98 SFLEND
A 96 LOCK
A MPGMQ SFLPGMQ
A R DUMMY
A ASSUME
A 1 3' '