00010001 PROC 0
00020000 ISPEXEC BROWSE DATASET('SYS6.MIDILIST.LISTING')
00030000 EXIT CODE(0)