COBOL PERFORM verb

精通cobol--9.4.4 PERFORM VARYING语句和PERFORM语句的比较     在本小节最后,来比较一下PERFORM VARYING语句和之前学习过的PERFORM语句。通过比较,加深对于PERFORM VARYING语句的理解。同时,也可以此作为对于PERFORM语句的一个简单回顾。在上面用到的的工资管理系统模型中,使用PERFORM VARYING语句计算全年总工资的代码如下。PERFORM   200-ADD-TO-TOTAL          阅读详情



PERFORM paragraph vs. PERFORM paragraph1 THRU paragraph2



PERFORM paragraph

Transfer control to paragraph, and transfer back when paragraph has finished to instruction immediately after the PERFORM instruction.


       IDENTIFICATION DIVISION.
       PROGRAM-ID.    MAINPROG.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       PROCEDURE DIVISION.
           DISPLAY "MAIN ENTRY".
           PERFORM PARAGRAPH1.        *> transfer control to PARAGRAPH1
           DISPLAY "MAIN EXIT".
           STOP RUN.

       PARAGRAPH1.
           DISPLAY 'IN PARAGRAPH1'.   *> transfer back here
       PARAGRAPH2.
           DISPLAY 'IN PARAGRAPH2'.
       PARAGRAPH3.
           DISPLAY 'IN PARAGRAPH3'.
       PARAGRAPH4.
           DISPLAY 'IN PARAGRAPH4'.


The execution result:


MAIN ENTRY
IN PARAGRAPH1
MAIN EXIT




PERFORM paragraph1 THRU paragraph2

Transfer control to paragraphs from paragraph1 and paragraph2(paragraph itself is included); and transfer control back after parapraph2 has finished.


       IDENTIFICATION DIVISION.
       PROGRAM-ID.    MAINPROG.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       PROCEDURE DIVISION.
           DISPLAY "MAIN ENTRY".
           PERFORM PARAGRAPH1 THRU PARAGRAPH3.        
           DISPLAY "MAIN EXIT".
           STOP RUN.

       PARAGRAPH1.
           DISPLAY 'IN PARAGRAPH1'.
       PARAGRAPH2.
           DISPLAY 'IN PARAGRAPH2'.
       PARAGRAPH3.
           DISPLAY 'IN PARAGRAPH3'.
       PARAGRAPH4.
           DISPLAY 'IN PARAGRAPH4'.


The execution result:


MAIN ENTRY
IN PARAGRAPH1
IN PARAGRAPH2
IN PARAGRAPH3
MAIN EXIT

(PARAGRAPH3 is executed, but PARAGRAPH4 is not)



Notice: if there is control transferring instruction between 
paragraph1 and paragraph2, that transfer control to other paragraph, control will not back to PERFORM instruction.

       IDENTIFICATION DIVISION.
       PROGRAM-ID.    MAINPROG.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       PROCEDURE DIVISION.
           DISPLAY "MAIN ENTRY".
           PERFORM PARAGRAPH1 THRU PARAGRAPH3.
           DISPLAY "MAIN EXIT".
           STOP RUN.

       PARAGRAPH1.
           DISPLAY 'IN PARAGRAPH1'.
       PARAGRAPH2.
           DISPLAY 'IN PARAGRAPH2'.
           GO TO PARAGRAPHX.          *> transfer control to PARAGRAPHX
       PARAGRAPH3.
           DISPLAY 'IN PARAGRAPH3'.
       PARAGRAPH4.
           DISPLAY 'IN PARAGRAPH4'.
       PARAGRAPHX.
           DISPLAY 'IN PARAGRAPHX'.   *> control stop here, and will not be back


The execute result:

MAIN ENTRY
IN PARAGRAPH1
IN PARAGRAPH2
IN PARAGRAPHX

Once control come to PARAGRAPHX, it will not back to PARAGRAPH3 again, and finally it will not back to the instruction immediately after PERFORM instruction.

PERFORM..THRU is dangerous

The PERFORM..THRU is dangers, but it's useful when dealing with error, we can stop executing a paragraph if an error is detected.

PROCEDURE DIVISION
   PERFORM PARAGRAPHX THRU E-PARAGRAPHX.
   STOP RUN.

PARAGRAPHX.
   Statements
   IF ErrorFound GO TO E-PARAGRAPHX
   END-IF
   Statements
E-PARAGRAPHX.
   EXIT.


(The EXIT statement in the E-PARAGRAPHX paragraph is a dummy statement. It has absolutely no effect on the flow of control. It is in the paragraph merely to conform to the rule that every paragraph must contain at least one sentence and in fact it must be the only sentence in the paragraph. It may be regarded as a comment.)



Usually, this should be the only case of a PERFORM..THRU and a GO..TO statement should be used. No other use of the PERFORM..THRU and GO...TO is acceptable.










cobol-PERFORM PERFORM就是调用程序中的函数,也就是处理,每个处理有且唯一的名字。 如上图所示,INIT-SYORI就是一个处理。 阅读详情

相关推荐

19、使用 PERFORM 提高 COBOL 程序的模块化与可读性

本文详细介绍了COBOL编程中PERFORM语句的使用方法及其在模块化编程和程序控制流中的应用。通过具体示例展示了如何利用PERFORM语句提高代码的可读性和可维护性,同时探讨了结合条件和循环控制实现复杂逻辑的方法以及最佳实践。

brown的博客 282

cobol中PERFORM知识点

执行语句(PERFORM) 一。执行语句的作用:在一个COBOL程序中,过程部中往往有一部分语句需要执行多次。为了让重复的部分在程序中只出现一次,可以把重复的部分单独写成一段或一节(有一个段名或节名),每次执行这部分语句时转去该段,执行完转回来。这时候就需要用到执行语句(PERFORM )。 二。执行语句的一般形式: PERFORM 过程名1...

qq_34822461的博客 5900

21、掌握COBOL编程中的PERFORM语句

本文深入探讨了COBOL编程中PERFORM语句的使用方法和应用场景,包括基本概念、高级用法、嵌套调用以及性能优化等内容。通过实际案例分析,帮助读者掌握PERFORM语句的核心技巧,提高代码的可读性和维护性。

brown的博客 210

COBOL - PERFORM

PERFORM VARYING语句和PERFORM语句都具有循环结构。但PERFORM VARYING语句在循环结构的基础上,还增加了一个步进的功能。该功能用于对表进行操作是十分方便的。PERFORM 就是调用程序中的函数,也就是执行,每个执行有且只有一个名字。该段代码实现的功能,实际上同样也可以使用PERFORM语句完成,代码如下。

zhu_fangyuan的博客 602

25、使用 `PERFORM ... UNTIL` 实现重复操作

本文详细介绍了COBOL编程语言中使用`PERFORM ... UNTIL`实现重复操作的方法。通过具体示例,展示了如何在学生信息处理、图书馆管理系统和销售系统等实际场景中应用该语句,并探讨了结合多个条件、嵌套循环、计数器和文件处理等高级用法。同时,文章还提供了优化代码逻辑、提高健壮性和性能的最佳实践建议。

brown的博客 325

资产监测设备中130dBm的GPS信号注入天线端口,C/N0一般是多少?

笔者的团队一直从事于资产监测设备的开发,在开发过程中,涉及到很多细节的问题,针对新入职的同事来说较为陌生。同时,在团队外,还有需要对智能硬件终端开发感兴趣的用户。基于此背景下,笔者将在下面的内容主要介绍资产监测设备以及对设备中的GPS相关的问题:130dBm的GPS信号注入天线端口,C/N0一般是多少?作出详细的解答。 资产监测设备概述: 资产监测设备是基于物联网通信技术基础上的智能硬件终端,其主要作用是帮助用户监测资产在仓库、运输途中、交付整个流通环节中,提供资产的实时位置与状态参数。用户只需要登录资产

瑞奇聊通信模组 1229

COBOL 过程部之三——执行语句(PERFORM)

一。执行语句的作用:在一个COBOL程序中,过程部中往往有一部分语句需要执行多次。为了让重复的部分在程序中只出现一次,可以把重复的部分单独写成一段或一节(有一个段名或节名),每次执行这部分语句时转去该段,执行完转回来。这时候就需要用到执行语句(PERFORM )。 二。执行语句的一般形式: PERFORM 过程名1 [THRU]...

cuiyadll的博客 3457

微信H5网页支付JSAPI部分用户报错:system:access_denied 的解决方案

JSAPI 支付仅支持微信内置浏览器调用。

代码简单说 Vue、JAVA、PHP、Node.js 熟练运用,接口、架构、性能全搞定。 1685

1.L 查询关键字 HEXLOC

Take the compile listing for the program that has either OFFSET or LIST option selected. Use the OFFSET or LIST output to determine which line of the COBOL program has the error based on the offset in...

weixin_30335353的博客 190

零基础学GPU KMD--8. 内存管理:GPU 显存与系统内存的协同​8.1 显存分配策略:GEM / TTM 原理

支持 VRAM、GTT(Graphics Translation Table)、SYSTEM 内存的动态迁移与缓存管理。:若缓冲区在 SYSTEM,TTM 分配 GTT 条目并建立页表映射,使 GPU 可直接访问。:系统内存中预留给 GPU 直接访问的区域,通过 GPU 的 MMU 做地址翻译。你需要我继续展开这一部分吗?​ 为复杂离散 GPU 设计,应对大容量 VRAM、多内存域、显存迁移等问题。:重量级、功能全,适合大容量、多内存域的离散 GPU,强调显存迁移与统一管理。

amy_mhd的博客 185

【从零到一】Jetson Nano上YOLOv5部署完全攻略:零基础小白也能玩转边缘AI推理

文章摘要: 本文详细介绍了在Jetson Nano边缘设备上部署YOLOv5目标检测模型的完整流程。从硬件准备、系统镜像烧录、基础环境配置,到CUDA/cuDNN验证、Python虚拟环境搭建及PyTorch安装,逐步指导开发者完成部署准备。教程兼顾理论原理与实践操作,提供Python和C++两种实现方案,并涵盖TensorRT优化、实时检测等生产级应用场景,帮助零基础开发者快速掌握边缘AI推理技术,实现高性能目标检测应用。

LXY_LOVE36的博客 367

精通cobol--9.4.1 PERFORM VARYING语句的使用方法

     PERFORM VARYING语句的基本格式如下所示。PERFORM …VARYING …FROM …BY…UNTIL  …其中,“…”部分则是相应的变量,根据具体的不同情况而有所不同。q      statement变量:指进行处理过程的名称。q      item-sub变量:通常为表中数据对应的下标。q      x1变量:通常指从表中的哪一个下标开

COBOL 6524

基于知识图谱的智能工作流引擎

随着大数据和人工智能技术的快速发展,企业和组织对数据的依赖程度日益增加。为了更好地管理和利用这些数据,知识图谱逐渐成为一种重要的工具。知识图谱不仅能够以结构化的方式表示复杂的知识,而且能够通过推理和查询提供深层次的信息。然而,如何将知识图谱应用于实际业务场景中,尤其是如何构建智能工作流引擎,仍然是一个具有挑战性的问题。智能工作流引擎是一种能够自动化执行复杂业务流程的系统,它可以通过对业务规则和数据的分析,自动生成和优化工作流,从而提高工作效率和准确性。

AI天才研究院 1870

13. COBOL的控制结构

语句,COBOL程序员可以根据变量或表达式的值灵活地控制程序流程,实现复杂的决策逻辑。语句结合使用,提供了一种灵活的循环控制机制。语句是COBOL中实现循环逻辑的关键工具,它使得程序员可以根据特定条件重复执行代码块,从而实现复杂的程序逻辑。语句中的条件执行,COBOL程序员可以创建灵活的循环结构,以满足各种数据处理和逻辑控制的需求。选项,COBOL程序员可以根据程序的需要灵活地控制循环的执行,实现更复杂的逻辑和数据处理需求。语句,COBOL程序员可以根据程序的需要灵活地控制程序流程,实现复杂的逻辑决策。

Python老吕的博客 1005

使用curl命令出现fatal: unable to access ‘https://github.com/nvm-sh/nvm.git/‘: Encountered end of file的解决方案

本文主要介绍了使用curl命令出现fatal: unable to access ‘https://github.com/nvm-sh/nvm.git/’: Encountered end of file的解决方案,希望能对使用curl命令的同学们有所帮助。 文章目录 1. 问题描述 2. 解决方案

weixin_43178406的博客 1万+

STM32 实现 4*4 矩阵键盘扫描(HAL库、标准库 都适用)

本文实现的代码是基于STM32HAL库的基础上的,不过标准库也可以用,只是调用的库函数不同,逻辑跟配置是一样的,按我这里的逻辑来配置即可。 1、键盘原理图: 原理举例:先把 F0-F7 内部拉高,这样这个8个引脚都是高电平,然后就进行列扫描。例如:假如按下3按钮,Y3 列扫描,把F4先拉低,然后读取F0-F3的状态,就会读出为1110,这就可 以知道是F3行拉低了,同时这时候是程序控制F4拉低的,这样就可以知道是F4列导致它转态变化了的,这样就可以定位出是F4列F3行的按键按下了;其他的列也是这样子扫描

lhh_qrsly的博客 7058

COBOL PERFORM A THRU A EXIT笔误 COMPUTE +或- 笔误 结果分析

1、COMPUTE A = + B,A = - B 一般为笔误,执行结果:A的值等于|B|。 测试: MOVE 5 TO WK-INPUT MOVE 5 TO WK-OUTPUT 或者 MOVE -5 TO WK-INPUT MOVE -5 TO WK-OUTPUT COMPUTE WK-OUTPUT = + WK-INPUT 执行结果:WK-OUTPUT结果为5. COMP...

cuiyadll的博客 1442

NSIS教程(2): 传统用户界面(Classic UI)

NSIS教程: 《NSIS用户手册 中文版》 《NSIS图文教程集锦 - 轻狂志》 本文以一个完整的、传统界面的网易云音乐安装包的脚本为示例,来介绍NSIS传统用户界面的开发流程。 NSIS脚本 # 单行注释用井号"#"或分号";",跨行注释用可以用C/C++中注释语法。 # 使用!define定义一些常量(如安装包的版本号等) # 对常量或变量的引用可以使用如${PROD

while(1) { smile(); } 8万+

Cobol学习笔记(整理中80%)

01 A03 AA注释:外部文件只有数据结构,没有部节等信息。03 YMD.注释:重定义共享内存地址,一个质变了影响另一个值,不能用在文件节01层,可用在数据单元节01层,层号必须相同,长度相同,重定义子句不能赋初值。

m0_65939803的博客 6475

lwip-2.0.3

lwip是瑞典计算机科学院(SICS)的Adam Dunkels 开发的一个小型开源的TCP/IP协议栈。实现的重点是在保持TCP协议主要功能的基础上减少对RAM 的占用。

efm32 入门.pdf

本PDF共计22页,介绍的是操作驱动API,下载与否自己斟酌。

C8-COBOL 循环语句

COBOL 循环语句 有一些任务需要一遍一遍地完成,就像读一个文件的每一个记录,直到它结束。COBOL中使用的循环语句是: Perform Thru Perform Until Perform Times Perform Varying Perform Thru Perform Thru用于执行一系列段落,通过给序列中的第一和最后一段命名。执行最后一段后,控制返回。 内联Perform PERFORM内的语句将被执行,直到到达END-PERFORM。 语法 下面是在内联perform的语法:

adozoo 3211

WINCC7.3破解文件

WINCC7.3硬件够破解文件,有需要的下载!WINCC7.3硬件够破解文件,有需要的下载!

Cobol语言基础

一、基础知识 1.程序结构 division -部 section -节 paragraphs -段 2.四个部 (1)IDENTIFICATION DIVISION 程序的标识部,位于程序的顶部,主要定义了程序的Id,作者等信息。 (2)ENVIRONMENT DIVISION 环境部 声明了程序运行的环境,指定了程序的输入和输出文件,有两个节组成,配置节和输入输出节 ①配置节 由两个段组成,分别是指定了程序编译的环境节(源计算机)和运行环境(目标计算机) ②输入输出节 由两个段组成 分别是文

zsq_z0304的博客 7526

深度学习工具包 DeepLearningToolbox

深度学习工具包Deprecation notice.-----This toolbox is outdated and no longer maintained.There are much better tools available for deep learning than this toolbox, e.g. [Theano](http://deeplearning.net/software/theano/), [torch](http://torch.ch/) or [tensorflow](http://www.tensorflow.org/)I would suggest you use one of the tools mentioned above rather than use this toolbox.Best, Rasmus.DeepLearnToolbox================A Matlab toolbox for Deep Learning.Deep Learning is a new subfield of machine learning that focuses on learning deep hierarchical models of data.It is inspired by the human brain's apparent deep (layered, hierarchical) architecture.A good overview of the theory of Deep Learning theory is[Learning Deep Architectures for AI](http://www.iro.umontreal.ca/~bengioy/papers/ftml_book.pdf)For a more informal introduction, see the following videos by Geoffrey Hinton and Andrew Ng.* [The Next Generation of Neural Networks](http://www.youtube.com/watch?v=AyzOUbkUf3M) (Hinton, 2007)* [Recent Developments in Deep Learning](http://www.youtube.com/watch?v=VdIURAu1-aU) (Hinton, 2010)* [Unsupervised Feature Learning and Deep Learning](http://www.youtube.com/watch?v=ZmNOAtZIgIk) (Ng, 2011)If you use this toolbox in your research please cite [Prediction as a candidate for learning deep hierarchical models of data](http://www2.imm.dtu.dk/pubdb/views/publication_details.php?id=6284)```@MASTERSTHESIS\{IMM2012-06284, author = "R. B. Palm", title = "Prediction as a candidate for learning deep hierarchical models of data", year = "2012",}```Contact: rasmusbergpalm at gmail dot comDirectories included in the toolbox-----------------------------------`NN/` - A library for Feedforward Backpropagation Neural Networks`CNN/` - A library for Convolutional Neural Networks`DBN/` - A library for Deep Belief Networks`SAE/` - A library for Stacked Auto-Encoders`CAE/` - A library for Convolutional Auto-Encoders`util/` - Utility functions used by the libraries`data/` - Data used by the examples`tests/` - unit tests to verify toolbox is workingFor references on each library check REFS.mdSetup-----1. Download.2. addpath(genpath('DeepLearnToolbox'));Example: Deep Belief Network---------------------```matlabfunction test_example_DBNload mnist_uint8;train_x = double(train_x) / 255;test_x = double(test_x) / 255;train_y = double(train_y);test_y = double(test_y);%% ex1 train a 100 hidden unit RBM and visualize its weightsrand('state',0)dbn.sizes = [100];opts.numepochs = 1;opts.batchsize = 100;opts.momentum = 0;opts.alpha = 1;dbn = dbnsetup(dbn, train_x, opts);dbn = dbntrain(dbn, train_x, opts);figure; visualize(dbn.rbm{1}.W'); % Visualize the RBM weights%% ex2 train a 100-100 hidden unit DBN and use its weights to initialize a NNrand('state',0)%train dbndbn.sizes = [100 100];opts.numepochs = 1;opts.batchsize = 100;opts.momentum = 0;opts.alpha = 1;dbn = dbnsetup(dbn, train_x, opts);dbn = dbntrain(dbn, train_x, opts);%unfold dbn to nnnn = dbnunfoldtonn(dbn, 10);nn.activation_function = 'sigm';%train nnopts.numepochs = 1;opts.batchsize = 100;nn = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.10, 'Too big error');```Example: Stacked Auto-Encoders---------------------```matlabfunction test_example_SAEload mnist_uint8;train_x = double(train_x)/255;test_x = double(test_x)/255;train_y = double(train_y);test_y = double(test_y);%% ex1 train a 100 hidden unit SDAE and use it to initialize a FFNN% Setup and train a stacked denoising autoencoder (SDAE)rand('state',0)sae = saesetup([784 100]);sae.ae{1}.activation_function = 'sigm';sae.ae{1}.learningRate = 1;sae.ae{1}.inputZeroMaskedFraction = 0.5;opts.numepochs = 1;opts.batchsize = 100;sae = saetrain(sae, train_x, opts);visualize(sae.ae{1}.W{1}(:,2:end)')% Use the SDAE to initialize a FFNNnn = nnsetup([784 100 10]);nn.activation_function = 'sigm';nn.learningRate = 1;nn.W{1} = sae.ae{1}.W{1};% Train the FFNNopts.numepochs = 1;opts.batchsize = 100;nn = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.16, 'Too big error');```Example: Convolutional Neural Nets---------------------```matlabfunction test_example_CNNload mnist_uint8;train_x = double(reshape(train_x',28,28,60000))/255;test_x = double(reshape(test_x',28,28,10000))/255;train_y = double(train_y');test_y = double(test_y');%% ex1 Train a 6c-2s-12c-2s Convolutional neural network %will run 1 epoch in about 200 second and get around 11% error. %With 100 epochs you'll get around 1.2% errorrand('state',0)cnn.layers = { struct('type', 'i') %input layer struct('type', 'c', 'outputmaps', 6, 'kernelsize', 5) %convolution layer struct('type', 's', 'scale', 2) %sub sampling layer struct('type', 'c', 'outputmaps', 12, 'kernelsize', 5) %convolution layer struct('type', 's', 'scale', 2) %subsampling layer};cnn = cnnsetup(cnn, train_x, train_y);opts.alpha = 1;opts.batchsize = 50;opts.numepochs = 1;cnn = cnntrain(cnn, train_x, train_y, opts);[er, bad] = cnntest(cnn, test_x, test_y);%plot mean squared errorfigure; plot(cnn.rL);assert(er<0.12, 'Too big error');```Example: Neural Networks---------------------```matlabfunction test_example_NNload mnist_uint8;train_x = double(train_x) / 255;test_x = double(test_x) / 255;train_y = double(train_y);test_y = double(test_y);% normalize[train_x, mu, sigma] = zscore(train_x);test_x = normalize(test_x, mu, sigma);%% ex1 vanilla neural netrand('state',0)nn = nnsetup([784 100 10]);opts.numepochs = 1; % Number of full sweeps through dataopts.batchsize = 100; % Take a mean gradient step over this many samples[nn, L] = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.08, 'Too big error');%% ex2 neural net with L2 weight decayrand('state',0)nn = nnsetup([784 100 10]);nn.weightPenaltyL2 = 1e-4; % L2 weight decayopts.numepochs = 1; % Number of full sweeps through dataopts.batchsize = 100; % Take a mean gradient step over this many samplesnn = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.1, 'Too big error');%% ex3 neural net with dropoutrand('state',0)nn = nnsetup([784 100 10]);nn.dropoutFraction = 0.5; % Dropout fraction opts.numepochs = 1; % Number of full sweeps through dataopts.batchsize = 100; % Take a mean gradient step over this many samplesnn = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.1, 'Too big error');%% ex4 neural net with sigmoid activation functionrand('state',0)nn = nnsetup([784 100 10]);nn.activation_function = 'sigm'; % Sigmoid activation functionnn.learningRate = 1; % Sigm require a lower learning rateopts.numepochs = 1; % Number of full sweeps through dataopts.batchsize = 100; % Take a mean gradient step over this many samplesnn = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.1, 'Too big error');%% ex5 plotting functionalityrand('state',0)nn = nnsetup([784 20 10]);opts.numepochs = 5; % Number of full sweeps through datann.output = 'softmax'; % use softmax outputopts.batchsize = 1000; % Take a mean gradient step over this many samplesopts.plot = 1; % enable plottingnn = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.1, 'Too big error');%% ex6 neural net with sigmoid activation and plotting of validation and training error% split training data into training and validation datavx = train_x(1:10000,:);tx = train_x(10001:end,:);vy = train_y(1:10000,:);ty = train_y(10001:end,:);rand('state',0)nn = nnsetup([784 20 10]); nn.output = 'softmax'; % use softmax outputopts.numepochs = 5; % Number of full sweeps through dataopts.batchsize = 1000; % Take a mean gradient step over this many samplesopts.plot = 1; % enable plottingnn = nntrain(nn, tx, ty, opts, vx, vy); % nntrain takes validation set as last two arguments (optionally)[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.1, 'Too big error');```[![Bitdeli Badge](https://d2weczhvl823v0.cloudfront.net/rasmusbergpalm/deeplearntoolbox/trend.png)](https://bitdeli.com/free "Bitdeli Badge")

COBOL......6

COBOL语言之数组 数组子句(OCCURS 子句) OCCURS 子句指定数据项为固定项目数或可变项目数的数组。OCCURS 子句不能 用于01 和77 层的项目,但可以用于基本或组合数据项目。如: 01 TIME-WORKED. 03 WEEK PIC 9 OCCURS 7 (T...

技术的死亡 820

COBOL语言的循环实现

在COBOL中,主要有两种循环结构:PERFORM循环和与条件判断结合使用的循环。其中,PERFORM是一种结构化的循环,适用于需要执行特定程序段多次的情况。而通过条件判断实现的循环,通常用于在满足某种条件时,反复执行某段代码。COBOL是一种功能强大的编程语言,其循环结构提供了灵活且高效的方式来处理重复性的任务。通过PERFORM语句,开发人员可以方便地实现各种类型的循环,满足不同的业务需求。无论是批量数据处理、重复计算还是处理用户输入,COBOL的循环结构都能发挥重要作用。

2501_90356529的博客 606

6 COBOL 过程部之三——执行语句(PERFORM)

 一。执行语句的作用:在一个COBOL程序中,过程部中往往有一部分语句需要执行多次。为了让重复的部分在程序中只出现一次,可以把重复的部分单独写成一段或一节(有一个段名或节名),每次执行这部分语句时转去该段,执行完转回来。这时候就需要用到执行语句(PERFORM )。 二。执行语句的一般形式:             PERFORM           过程名1        [THRU]   

1151

COBOL 教程

COBOL 教程 - -目录CHAPTER   1 COBOL 概述 CHAPTER   2 过程部初步 CHAPTER   3 标识部和环境部 CHAPTER   4 数据部之一 CHAPTER   5 过程部之二 CHAPTER   6 过程部之三 CHAPTER   7 各部之间的关系及程序举例 CHAPTER   8 联机及批量程序的一些差异 CHAPTER   9 COBOL 编

zhaozj610的专栏 5011
上一篇: COBOL call C function
下一篇: COBOL OPEN AND CLOSED SUBROUTINES
假装80后
博客等级 码龄19年 28粉丝 249原创
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付:10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值