IBM大型机论坛索引
 
登录
 
IBM大型机论坛索引 大型机:搜索 IBM Mainframe论坛:常见问题解答 寄存器
 

使用游标读取表的逻辑


IBM大型机论坛 -> COBOL程式设计
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
karthik3883

新的用户


已加入:2007年10月19日
职位:37
地点:钦奈

发布发表:2012年11月14日,星期三,下午1:38
引用回复

你好

我的要求是我必须使用光标读取表,并且表将具有一些货币信息...如果检索的货币为2,则我必须创建两个今天双色球开奖结果,如果为4,则必须创建4个今天双色球开奖结果..有人可以让我吗知道如何进行

问候
卡尔提克
回到顶部
查看用户资料 发送私信
纳纳斯N

活跃的成员


已加入:2007年9月6日
帖子:792
地点:印度金奈

发布发表:2012年11月14日,星期三,下午1:45
引用回复

是的,您需要开始使用(站点)选择的语言编写代码。请参考相应的语言手册。

假设使用DB2表,那么IBM关于DB2应用程序编程的手册将提供有关如何进行DECLARE CURSOR,其FETCH以及相关内容的信息。
回到顶部
查看用户资料 发送私信
karthik3883

新的用户


已加入:2007年10月19日
职位:37
地点:钦奈

发布发表:2012年11月14日,星期三,下午1:50
引用回复

嗨,Gnanas,

我已经编写了程序,但是,只是想知道如何根据从表中获取的行数动态创建今天双色球开奖结果。是否有任何方法可以做到这一点。

谢谢你的帮助
问候
卡尔提克
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


加入时间:2011年3月9日
帖子:7311
位置:矩阵内部

发布发表:2012年11月14日,星期三,下午1:53
引用回复

完全不同的问题。

您用什么编写了程序?我猜不是在JCL中。因此,请告诉我们,我们可以将主题移至正确的论坛。

有四个今天双色球开奖结果,其中两个为“空”(最好包含良好的头和尾且没有数据,因此它们在逻辑上为空而不是物理上为空)有什么问题?
回到顶部
查看用户资料 发送私信
karthik3883

新的用户


已加入:2007年10月19日
职位:37
地点:钦奈

发布发表:2012年11月14日,星期三2:16 pm
引用回复

嗨,比尔,

1.该程序很容易从表的一列中检索记录,例如货币。

2.我举了一个例子,表可能有10种货币或2种货币,依此类推。因此,根据检索到的行,我必须动态创建今天双色球开奖结果。

问候
卡尔提克
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


加入时间:2011年3月9日
帖子:7311
位置:矩阵内部

发布发表:2012年11月14日,星期三2:33 pm
引用回复

好的,我们仍然不知道使用哪种语言,但是如果您确实想走那条路线,请搜索BPXWDYN。
回到顶部
查看用户资料 发送私信
karthik3883

新的用户


已加入:2007年10月19日
职位:37
地点:钦奈

发布发表:2012年11月14日,星期三2:41 pm
引用回复

嗨,比尔,

程序用cobol编写。

无论如何,是否可以通过使用JCL执行上述程序来控制动态分配?

问候
卡尔提克
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


加入时间:2011年3月9日
帖子:7311
位置:矩阵内部

发布发表:2012年11月14日,星期三2:44 pm
引用回复

也许您可以描述一下您的意思?请记住,JCL的工作方式(一旦JCL本身被转换/解释了,就被抛弃了)。
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


已加入:2006年11月23日
帖子:19245
位置:矩阵内部

发布发表:2012年11月14日,星期三,下午7:58
引用回复

您好,

如果您不想动态分配今天双色球开奖结果,则可以让cobol程序读取“货币”并根据该值(2、4、10等)设置条件代码。

然后,将根据条件代码运行后续步骤。

其余步骤将需要设置为可能的最大值。
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

发布发表:2012年11月14日,星期三,9:06 pm
引用回复

我承认我不喜欢在COBOL中动态分配输出今天双色球开奖结果,
因为你不能从
JCL
或COBOL SELECT语句
或COBOL FD的
正在输出多少个今天双色球开奖结果。

我的偏好是追加一条记录(今天双色球开奖结果类型/编号)
到每个输出记录
然后使用排序产品生成可变数量的输出今天双色球开奖结果。

有许多解决此问题的示例。

另外,我不知道有多少动态分配的输出今天双色球开奖结果
可以在COBOL程序中同时打开。
不知道这是不是一个问题。

就COBOL逻辑而言,
按货币编号对结果集进行排序可能会最好地为您服务。
回到顶部
查看用户资料 发送私信
塞普拉萨德

活跃用户


已加入:2006年9月20日
职位:154
所在地:美国

发布发表:2012年11月15日,星期四,上午9:11
引用回复

卡尔提克

下面提到的代码将为输入今天双色球开奖结果中的记录数动态生成输出今天双色球开奖结果。您可以用光标替换输入今天双色球开奖结果。

码:
****************************************************** ****************
      **                                                               *
      **   我要去    D I V I S I O N              *
      **                                                               *
     ****************************************************** ****************
       识别部门。                                         
       PROGRAM-ID.    DYN.                                             
       AUTHOR.        TCSL.                                             
       DATE-WRITTEN.  08/27/2010.                                       
                                                                       
      *                                                                 
       环境司。                                           
       配置部分。                                           
       SOURCE-COMPUTER.        IBM-370.                                 
       OBJECT-COMPUTER.        IBM-390.                                 
      *                                                                 
       输入输出部分。                                           
       FILE-CONTROL.                                                   
            SELECT INFILE    分配  TO  INFILE.                       
            SELECT OUTPUT-FILE   ASSIGN  TO  OUTFILE.                   
      *                                                                 
       DATA DIVISION.                                                   
       FILE SECTION.                                                   
      *                                                                 
       FD  INFILE                                                       
           标签记录为标准                                     
           RECORDING MODE IS F                                         
           块包含0个记录。                                   
      *                                                                 
       01  INPUT-REC                        图十(80).                 
      *                                                                 
       FD  OUTPUT-FILE                                                 
           标签记录为标准                                     
           RECORDING MODE IS F                                         
           块包含0个记录。                                   
      *                                                                 
       01  OUTPUT-REC                       PIC X(80).                 
      *                                                                 
     ****************************************************** ****************
      *                   工作存储部分                      *
     ****************************************************** ****************
                                                                       
       工作存储部分。                                         
      *                                                                 
       01 WS-环境-变量       PIC X(150) VALUE SPACE.         
       01 WS-PUTENV-返回码         PIC S9(9) COMP.                 
       01 WS-PUTENV-POINTER             POINTER.                       
       01 WS-ENV-1                      图十(12) VALUE                 
                                                       'OUTFILE=DSN('. 
       01 WS-DSN                        图十(40) VALUE SPACE.         
       01 WS-ENV-2                      图十(27) VALUE                 
          ')新的目录跟踪空间('.                               
       01 WS-ENV-PRI-TRACKS                  图9(04).                 
       01 WS-ENV-3                           PIC X(33) VALUE           
           ',1) UNIT(SYSDA)'.                                           
      *                                                                 
       01 WS-DSN-NAME.                                                 
          05 FILLER                          图十(18) VALUE           
             'XXXXXXX.SAI.TEST.V'。                                     
          05 WS-DSN-NUMBER                   PIC 9(04) VALUE ZEROES.   
      *                                                                 
       01 WS-LIT-ZERO                        图9     VALUE ZERO.     
       01 WS-END-FILE                        图十(03) VALUE SPACE.     
      *                                                                 
       LINKAGE SECTION.                                                 
      *                                                                 
       PROCEDURE DIVISION.                                             
      *                                                                 
       0000-MAINLINE.                                                   
      *                                                                 
           DISPLAY '<OPENING THE FILE>'                                 
           OPEN INPUT INFILE.                                           
           DISPLAY '<开始读取过程>'                 
           将“ NO”移到WS-END-FILE。                             
           通过1000出口进行1000加工                   
           直到WS-END-FILE ='YES'。                           
           CLOSE INFILE.                                         
      *                                                         
           STOP RUN.                                             
      *                                                         
       0000-EXIT.                                               
           EXIT.                                                 
      *                                                         
       1000-PROCESS.                                             
      *                                                         
           READ INFILE                                           
               最后,将“是”移至WS-END-FILE。               
           如果WS-END-FILE ='NO'                                 
             执行2000-DYN-FILE THRU 2000-EXIT               
           END-IF.                                               
      *                                                               
       1000-EXIT.                                                     
           EXIT.                                                     
      *                                                               
       2000-DYN-FILE.                                                 
      *                                                               
              ADD +1                         TO WS-DSN-NUMBER.       
              MOVE +100                     到WS-ENV-PRI-TRACKS。   
              MOVE WS-DSN-NAME               TO WS-DSN.               
             初始化WS-ENVIRONMENT-VARIABLE。                      
              STRING WS-ENV-1          DELIMITED BY SIZE             
                     WS-DSN            DELIMITED BY ' '               
                     WS-ENV-2          DELIMITED BY SIZE             
                     WS-ENV-PRI-TRACKS由大小限制             
                     WS-ENV-3          DELIMITED BY SIZE             
             进入WS-ENVIRONMENT-VARIABLE。                           
             显示“ WS-ENVI-VARIABLE”<WS-环境-变量>'   
             将WS-PUTENV-POINTER设置为地址                     
                 WS-ENVIRONMENT-VARIABLE。                             
              显示'<CALLING PUTENV>'                               
             通过值WS-PUTENV-POINTER调用“ PUTENV”           
                           返回WS-PUTENV-RETURN-CODE。           
             显示'WS-PUTENV-RETURN-CODE<'WS-PUTENV-RETURN-CODE'>'
             如果WS-PUTENV-RETURN-CODE = WS-LIT-ZERO为零                   
                 打开输出输出今天双色球开奖结果                               
                 将输入记录移至输出记录                         
                 WRITE OUTPUT-REC                                     
                 CLOSE OUTPUT-FILE                                     
              ELSE                                                     
                 显示“紧急呼叫”错误<'WS-PUTENV-RETURN-CODE'>'
              万一。                                                 
      *                                                               
       2000-EXIT.                                                     
           EXIT.     
回到顶部
查看用户资料 发送私信
塞普拉萨德

活跃用户


已加入:2006年9月20日
职位:154
所在地:美国

发布发表:2012年11月15日,星期四,上午9:14
引用回复

我使用下面提到的JCL执行上面文章中提到的程序。

码:
// XXXXXXX8  JOB (ACCOUNT),'XXXXXXX X3350',MSGCLASS = X,     
//         CLASS = A,NOTIFY = XXXXXXX,TIME = 1440               
// *                                                       
// JOBLIB DD DSN = XXXXXXX.ZZTEST.LOADLIB,DISP = SHR           
// *                                                       
// STEP06  EXEC PGM=DYN                                     
// SYSPRINT DD SYSOUT = *                                     
// SYSOUT   DD SYSOUT=*                                     
// INFILE   DD DSN = XXXXXXX.SAI.TEST,DISP = SHR   
回到顶部
查看用户资料 发送私信
karthik3883

新的用户


已加入:2007年10月19日
职位:37
地点:钦奈

发布发表:2012年11月15日,星期四,上午11:22
引用回复

嗨,赛伊

非常感谢您的帮助。将实现您的逻辑,如果我需要任何帮助,我会回来的。

问候
卡尔提克
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> COBOL程式设计

 


类似主题
话题 论坛 回覆
没有新帖 需要从表格读取重复的行... DB2 3
没有新帖 阅读4MB消息并拆分成多个... COBOL程式设计 9
没有新帖 如何在...中读取会计信息 COBOL程式设计 1
没有新帖 使用BP动态读取输入今天双色球开奖结果... COBOL程式设计 20
没有新帖 当doi ...时EIBRESP = 16和EIBRESP2 = 25 CICS 2
搜索我们的论坛:


回到顶部