midrange.com code scratchpad |
Name:
H-spec copy book
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
09/26/2008 07:44:04 pm
|
IP:
Logged
|
|
Description:
name says it all
|
Code:
- H OPENOPT(*NOINZOFL) OPTION(*NODEBUGIO:*SRCSTMT)
- H BNDDIR('WFIBNDDIR')
- /IF DEFINED(*CRTBNDRPG)
- H DFTACTGRP(*NO) ACTGRP(*CALLER)
- /ELSE
- H NOMAIN
- /ENDIF
|
|
|