大机中的asm example

最新推荐文章于 2024-07-22 18:58:45 发布
最新推荐文章于 2024-07-22 18:58:45 发布
阅读量419 收藏
点赞数 8
分类专栏： # 工作-asm 文章标签： cobol JCL 汇编
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/CNMBZY/article/details/136858707
版权
本文详细介绍了使用COBOL编写的QMFC可调用接口的示例，涵盖了从建立查询接口会话、设置数值值到执行查询和打印结果的过程。
摘要由CSDN通过智能技术生成

QMF ne fournit pas la requête Q1 ou le format F1, mais l’exemple de programme utilise ces objets.


```cobol
DSQABFA  TITLE 'SAMPLE QMF CALLABLE INTERFACE'                         
DSQABFA  CSECT                                                         
DSQABFA  AMODE 31                                                      
DSQABFA  RMODE ANY                                                     
***********************************************************************
*                                                                     *
*  Sample Program:  DSQABFA                                           *
*  Assembler Version of the QMF Callable Interface                    *
*                                                                     *
***********************************************************************
         SPACE 1                                                       
         STM   R14,R12,12(R13)       SAVE ENTRY REGISTERS              
         BALR  R12,0                 INITIALIZE BASE REGISTER          
         USING *,R12                                                   
         LA    R2,SAVEAREA           CHAIN SAVE AREAS                  
         ST    R2,8(R13)                                               
         ST    R13,SAVEAREA+4                                          
         LR    R13,R2                ESTABLISH SAVE AREA               
         SPACE 1                                                       
***********************************************************************
* Start a query interface session                                     *
***********************************************************************
         LA    R4,CICOMM             ESTABLISH ACCESS TO DSQCOMM       
         USING DSQCOMM,R4                                              
         SPACE 1                                                       
         MVC   DSQ_COMM_LEVEL,DSQ_CURRENT_COMM_LEVEL                   
         LA    R1,1                  1 PARAMETER                       
         ST    R1,NUMPARMS                                             
         CALL  DSQCIA,                                                 
               (CICOMM,              QI COMMON AREA                    
               STARTQIL,             START COMMAND LENGTH              
               STARTQI,              START COMMAND                     
               NUMPARMS,             NUMBER OF KEYWORDS                
               STARTKYL,             KEYWORD LENGTHS                   
               STARTKY,              KEYWORDS                          
               STARTVL,              VALUE LENGTHS                     
               STARTV,               VALUES                            
               DSQ_VARIABLE_CHAR),VL VALUES ARE CHARACTERS             
         SPACE 1                                                       
***********************************************************************
* Set numeric values into query using SET command                     *
***********************************************************************
         SPACE 1                                                       
         LA    R1,20                 SET VALUES TO BE MODIFIED         
         ST    R1,VVAL1                                                
         LA    R1,40                                                   
         ST    R1,VVAL2                                                
         LA    R1,84                                                   
         ST    R1,VVAL3                                                
         LA    R1,3                  3 PARAMETERS                      
         ST    R1,NUMPARMS                                             
         SPACE 1                                                       
         CALL  DSQCIA,                                                 
               (CICOMM,                                                
               SETGL,                SET GLOBAL COMMAND LENGTH         
               SETG,                 SET GLOBAL COMMAND                
               NUMPARMS,             NUM OF VARIABLES TO BE SET        
               VNAME1L,              VARIABLE NAME LENGTHS             
               VNAME1,               VARIABLE NAMES                    
               VVAL1L,               VALUE LENGTHS                     
               VVAL1,                VALUES                            
               DSQ_VARIABLE_FINT),VL VALUES ARE INTEGERS               
         SPACE 1                                                       
***********************************************************************
* Run a query                                                         *
***********************************************************************
         SPACE 1                                                       
         CALL  DSQCIA,                                                 
               (CICOMM,                                                
               QUERYL,               QUERY COMMAND LENGTH              
               QUERY),VL             TEXT OF QUERY COMMAND             
         SPACE 1                                                       
***********************************************************************
* Print the result of the query                                       *
***********************************************************************
         SPACE 1                                                       
         CALL  DSQCIA,(CICOMM,REPTL,REPT),VL    
         SPACE 1                                                       
***********************************************************************
* End the query interface session                                     *
***********************************************************************
         SPACE 1                                                       
         CALL  DSQCIA,(CICOMM,ENDQIL,ENDQI),VL                         
         SPACE 1                                                       
***********************************************************************
* Return                                                              *
***********************************************************************
         SPACE 1                                                       
         SR    R15,R15               SET RETURN CODE                   
         L     R13,4(R13)                                              
         L     R14,12(R13)           RESTORE CALLER REGISTERS          
         LM    R0,R12,20(R13)                                          
         BR    R14                                                     
         EJECT                                                         
***********************************************************************
* Data Areas                                                          *                   
***********************************************************************
         SPACE 1                                                       
*  Query Interface commands                                            
         SPACE 1                                                       
STARTQI  DC    C'START'              START FUNCTION                    
SETG     DC    C'SET GLOBAL'         SET GLOBAL FUNCTION               
QUERY    DC    C'RUN QUERY Q1'       RUN QUERY                         
REPT     DC    C'PRINT REPORT (FORM=F1)'  PRINT REPORT                 
ENDQI    DC    C'EXIT'               END INTERFACE                     
         SPACE 1                                                       
         DS    0F                                                      
STARTQIL DC    AL4(L'STARTQI)        LENGTH OF START FUNCTION          
SETGL    DC    AL4(L'SETG)           LENGTH OF SET GLOBAL FUNCTION     
QUERYL   DC    AL4(L'QUERY)          LENGTH OF RUN QUERY COMMAND       
REPTL    DC    AL4(L'REPT)           LENGTH OF PRINT REPORT COMMAND    
ENDQIL   DC    AL4(L'ENDQI)          LENGTH OF END INTERFACE COMMAND   
         SPACE 1                                                       
*  START command keyword                                               
         SPACE 1                                                       
STARTKY  DC    C'DSQSMODE'          
STARTV   DC    C'INTERACTIVE'       
         DS    0F                   
STARTKYL DC    AL4(L'STARTKY)       
STARTVL  DC    AL4(L'STARTV)        
         SPACE 1                    
*  SET GLOBAL command variable names
         SPACE 1                    
VNAME1   DC    C'MYVAR01'           
VNAME2   DC    C'SHORT'             
VNAME3   DC    C'MYVAR03'           
         DS    0F                   
VNAME1L  DC    AL4(L'VNAME1)        
VNAME2L  DC    AL4(L'VNAME2)        
VNAME3L  DC    AL4(L'VNAME3)        
         SPACE 1                    
*  SET GLOBAL command values        
         SPACE 1                    
VVAL1    DS    F                    
VVAL2    DS    F                                               
VVAL3    DS    F                                               
VVAL1L   DC    AL4(L'VVAL1)                                    
VVAL2L   DC    AL4(L'VVAL2)                                    
VVAL3L   DC    AL4(L'VVAL3)                                    
         SPACE 1                                               
NUMPARMS DS    F                     NUMBER OF KEYWORDS        
         SPACE 1                                               
*  Callable interface communications area                      
         SPACE 1                                               
CICOMM   DS    CL(DSQCOMM_LEN)                                 
         SPACE 1                                               
SAVEAREA DS    18F                                             
         EJECT                                                 
         DSQCOMMA                                              
         SPACE 1                                               
R0       EQU   00                    EQUATES FOR REGISTERS 0-15
R1       EQU   01                                              
R2       EQU   02                                              
R3       EQU   03     
R4       EQU   04     
R5       EQU   05     
R6       EQU   06     
R7       EQU   07     
R8       EQU   08     
R9       EQU   09     
R10      EQU   10     
R11      EQU   11     
R12      EQU   12     
R13      EQU   13     
R14      EQU   14     
R15      EQU   15     
         SPACE 1      
         END   DSQABFA
「已注销」
关注
  • 8
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
oracle asm查看大小,Oracle ASM查看信息
weixin_39756445的博客
04-05 1012
ASM查看信息一查看有关ASM的视图SQL> select table_name from dict wheretable_name like '%ASM%';ASM相关管理视图v$ASM_ALIAS：每个disk group的列的别名V$ASM_ATTRIBUTE：显示每一列属性定义v$ASM_CLIENT：ASM实例V$ASM_DISK：显示DISK属性V$ASM_DISK_IOSTAT...
oracle asm块大小,oracle 11.2.0.3 rac 的ASM磁盘组中每个lun的最大尺寸是多少
weixin_35784728的博客
04-03 676
对于 ASM，每个磁盘的的大小限制是 2T。 对于外部冗余的磁盘组，数据在磁盘组层面是没有冗余的。如果已经存在一个500g的磁盘，那么在增加一块2T的磁盘的话，这个磁盘组的容量就是2.5T.另外，关于ASM的限制，你可以查看以下的联机文档。Oracle® Automatic Storage Management Administrator's Guide====> 4 Administeri...
oracle asm 最大磁盘,ASM磁盘组限制
weixin_26833503的博客
04-05 411
ASM 11.2版本：ASM provides near unlimited capacity for future growth, but does have some storage limits.For example, ASM has the following limits on the number of disk groups, disks, and files:1.) 63 dis...
oracle asm块大小,ASM单块磁盘大小限制
weixin_39761481的博客
04-03 258
Oracle ASM provides near unlimited capacity for future growth, but does have some storage limits.Oracle ASM has the following limits on the number of disk groups, disks, and files:511 disk groups in a...
Java ASM Example
SimonHeeeee的博客
11-14 189
ASM字节码插桩技术初探
fengchengwu2012的博客
06-14 1073
ASM(全称：ASMifier Class Visitor)是一个java字节码操纵框架，ASM 提供了许多 API 和工具,可以直接以二进制形式读取和修改类文件、动态生成类或者增强既有类的功能。
字节码进阶之ASM字节码操作类库详解
日拱一卒无有尽，功不唐捐终入海
10-20 600
在Java的世界里，一切都围绕着字节码进行。字节码，作为Java源代码到Java虚拟机（JVM）的中间表示，扮演了重要的角色。然而，直接操作字节码并非易事，需要深入理解JVM的工作原理以及字节码的细节。这就是ASM类库登场的地方。ASM是一个在Java中广泛使用的字节码操作和分析框架。它提供了直接操作字节码的能力，从而可以实现一些Java语言本身无法实现或者难以实现的功能。通过使用ASM，开发者可以动态生成类，修改已存在的类，优化代码性能，以及进行深度的代码分析。
oracle asm磁盘头 备份,11g中asm磁盘组元数据备份及恢复
weixin_34435322的博客
04-15 468
注意：在11g中asm变化挺大的，用md_backup备份，用md_restore来恢复1 当前磁盘组相关信息SQL> select PATH,b.NAME from v$asm_diska,v$asm_diskgroup b where a.GROUP_NUMBER=b.GROUP_NUMBER;PATH NAME--------------- --------------------...
AOP 利器 ASM 基础入门
钝悟需要时间的打磨，顿悟需要时间的积累
12-13 1446
1. ASM 介绍 ASM 是一个 Java 字节码操作框架，它能用来动态生成类或者增强既有类的功能。ASM 可以直接生成二进制 class 文件，也可以在类被加载到 Java 虚拟机之前动态改变类行为。ASM 框架中提供了常见的字节码分析和生成工具，可以快速进行类的生成或分析转换。 在 Android 开发中， Android Gradle 1.5 版本后提供的 Transform 机制, 它允许第三方的 Plugin 插件在 .class 文件打包成 dex 之前进行动态修改，这就为动态修改字节码文件提
使用ASM来书写Java代码
Dream It Possible
06-11 711
ASM是一套JAVA字节码生成架构。它可以动态生成二进制格式的stub类或其他代理类，或者在类被JAVA虚拟机装入内存之前，动态修改类。 ASM 提供了与 BCEL（ http://jakarta.apache.org/bcel ）和SERP(http://serp.sourceforge.net/ )相似的功能，只有22K的大小，比起350K的BCEL和150K的SERP来说，是相当小巧的，并且它有更高的执行效率，是BCEL的7倍，SERP 的11倍以上。ASM一贯的设计思想就是将其应用于动态生成领域，因
example.asm
11-03
example.asm
FFT_-_asm_code_example_fft_avr_Asm_
10-02
标题中的"FFT_-_asm_code_example_fft_avr_Asm_"表明这是一个关于快速傅里叶变换（FFT）的汇编代码示例，特别针对AVR微控制器。AVR是一种广泛应用的RISC（精简指令集计算机）架构，常用于嵌入式系统，如Arduino等...
ASM-EXAMPLE-CODES--1.rar_traffic
09-24
标题中的"ASM-EXAMPLE-CODES--1.rar_traffic"表明这是一个与8051微控制器相关的汇编语言（ASM）代码示例集合，主要关注交通领域的应用。8051是一个经典的8位微处理器，广泛用于嵌入式系统设计，尤其是在交通控制、...
13059798ASM_version1b12_Asm_
10-02
3. **示例代码**："ASM_example.m" 可能是演示如何使用工具箱功能的代码示例，帮助用户理解如何在实际项目中应用ASM。 4. **模型创建**："MakeAppearanceModel.m" 和 "MakeShapeModel.m" 文件可能提供创建外观模型...
Tasking-Example-ASM.zip_Tasking_XE164_example.a_tasking 汇编_taski
09-24
本示例"Tasking-Example-ASM.zip"提供了英飞凌XE164处理器上的一个详细实例，旨在帮助开发者了解如何将C语言与汇编语言结合，实现高效的任务管理。在这个教程中，我们将深入探讨"Tasking_XE164_example.a_tasking"这...
前言及汇编（30小时精通C++和外挂实战）
qq_44870829的博客
07-22 1067
对C++疑惑C++学习意义何在？什么地方能用到C++主要内容C++（只学习核心语法，面向有基础的人）语法通过反汇编窥探底层Windows编程项目实战（X86汇编、植物大战僵尸外挂）If-else和switch那个效率高（直接看汇编代码）引用的本质是什么？多态\需函数的实现原理是什么？函数（方法）的函数、局部变量在内存中是如何布局的？看一下植物大战僵尸的外挂功能1，打开外挂程序，程序监控是否打开游戏，若无，当中内容无法点击。
2024浙江省行政区划矢量图层-省市县乡镇四级行政区划数据下载-带python代码
最新发布
08-02
2024最新浙江省行政区划矢量图层数据，包含省、市、县、乡镇四级行政区划数据下载，附带shp转geojson的python代码
年度销售计划表.xlsx.xlsx
08-01
销售统计，调查问卷，库存明细，跟进表，业绩统计表，差异分析 ，产品清单 适用人群：学习不同技术领域的小白或进阶学习者；可作为毕设项目、课程设计、大作业、工程实训或初期项目立项。
蓝牙BLE 4.0开发课程
08-01
蓝牙BLE 4.0课程
x64 中我如何使用.asm
07-09
首先，创建一个名为`example.asm`的汇编文件，并在其中编写汇编代码。以下是一个简单的示例，展示如何将两个数相加并将结果存储在变量中： ```assembly section .data result dq 0 section .text global add_...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

「已注销」

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值