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:
  1.      H OPENOPT(*NOINZOFL) OPTION(*NODEBUGIO:*SRCSTMT)
  2.      H  BNDDIR('WFIBNDDIR')                          
  3.       /IF DEFINED(*CRTBNDRPG)                        
  4.      H  DFTACTGRP(*NO) ACTGRP(*CALLER)               
  5.       /ELSE                                          
  6.      H  NOMAIN                                       
  7.       /ENDIF                                         
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css