000100 Identification Division.
000200 Program-Id. OVN201.
000300 Data Division.
000400 Working-Storage Section.
000500 01 Pgmnamn   Pic X(08) Value Space.
000600 Linkage Section.
000700 01 JCLParm.
000800    05 Plen   Pic S9(04) Binary.
000900    05 Pdata  Pic X(08).
001000 Procedure Division Using JCLparm.
001100     If Plen = 0
001200        Display '*** Parameter måste anges ***'
001300        Move 99 to Return-Code
001400        Stop Run
001500     End-If
001600     Move Pdata(1:Plen) to Pgmnamn
001700     Call Pgmnamn
001800        On Exception
001900           Display '*** Programmet ' Pdata ' saknas ***'
002000           Move 98 to Return-Code
002100        Not On Exception
002200           Display '*** Programmet ' Pdata ' anropat ***'
002300     End-Call
002400     GoBack
002500     .