déclaration RPG de la classe Simple

BoTTom |
     H DFTACTGRP(*NO) ACTGRP(*CALLER) THREAD(*SERIALIZE)
     D simpleMethod    PR                  EXTPROC(*JAVA
     D                                           : 'Simple'
     D                                           : 'methode')
     D                                     STATIC
      /free
        simpleMethod();
        *inlr = *ON;
      /end-free




©AF400