例:
01 VAR1 PIC 9(05).
88 WS-VAR1 VALUE 1000 1001 1002 1003
1004 1009 2000 2002 3000 4000 4009
5000 5001 6000 7000 8000 2332 8484.
Run Code Online (Sandbox Code Playgroud)
我们如何将值从JCL作为instream传递给Cobol程序变量88.因此,在不更改程序的情况下修改值会更容易.
我找到了两个解决方案:
1.使用内部索引表.这样二进制搜索就能快速完成任务.
2.使用VSAM文件而不是传递数据.(不太可能)
我认为二进制搜索肯定比88条件检查慢.我试图在88条件检查中找到相同效率的东西.
我正在设置一个JCL,它将将来自顺序文件(具有一个记录)(例如20190320)的日期值传递给parm,如下所示:
// STEP1 EXEC PGM = ABC,PARM ='20190320'
我试图通过包含顺序文件中的日期值传递PARM的值。