定義的宏超出了9個變量時，用第二個或多個宏更新第一個宏

CLEAR:GT_FIELDCAT,
        GS_FIELDCAT.
  DATA: LI_POS  TYPE I,
        LI_POS2 TYPE I.

DEFINE FIELDCAT.
    ADD 1 TO LI_POS.
    GS_FIELDCAT-EDIT          = &1."允許編輯
    GS_FIELDCAT-LZERO         = &2."前導0
    GS_FIELDCAT-NO_ZERO       = &3."去掉前導0
    GS_FIELDCAT-INTTYPE       = &4."輸出類型
    GS_FIELDCAT-CHECKBOX      = &5."多選框
    GS_FIELDCAT-FIELDNAME     = &6."列名
    GS_FIELDCAT-REF_FIELDNAME = &7."關聯的字段名
    GS_FIELDCAT-SELTEXT_L     = &8. "字段名
    GS_FIELDCAT-COL_POS       = LI_POS."位置
    APPEND GS_FIELDCAT TO GT_FIELDCAT.
  END-OF-DEFINITION.

DEFINE FIELDCATALOG2.
    LI_POS2 = LI_POS2 + 1.
    GS_FIELDCAT-KEY           = &1.
    GS_FIELDCAT-OUTPUTLEN     = &2.
    GS_FIELDCAT-CHECKBOX      = &3.
    MODIFY GT_FIELDCAT INDEX LI_POS2 FROM GS_FIELDCAT TRANSPORTING KEY OUTPUTLEN CHECKBOX.
    CLEAR: GS_FIELDCAT.
  END-OF-DEFINITION.

时间： 2024-10-19 19:56:29

定義的宏超出了9個變量時，用第二個或多個宏更新第一個宏的相关文章

java_自定義一個List(類似ArrayList)

TestMain.java package listTest;public class TestMain {    public static void main(String[] args){        MyList<String> myList = new MyList<>();        myList.add("1");        myList.add("2");        myList.add("3"

Notepad++ 自定義關鍵字

Notepad++是一款輕便好用的編輯器,但可能有些語言的關鍵字不全,比如SQL中,默認關鍵字沒有Merge. 如何給Notepad++中的語言增加關鍵字,而不是大動干戈自定義一個語言? 步驟: Setttings --> Style  Configurator --> Language,User-defined keywords

Q郵箱轉移自定義目錄中的郵件

1.之前在Q郵箱上建立了許多規則和收件箱,現在想統一用Mac上的郵局管理 2.Mac上會同步對應郵箱的自定義目錄,此時這些目錄便十分多餘礙眼 3.Q郵箱單頁顯示郵件數量上限是100,這意味著手動轉移十分痛苦 4.於是寫了個applescript,但不知為啥一用腳本就轉移失敗 5.在debug的過程中發現刪除這些分類時,是不一定連信一起刪的,可以勾選checkbox選擇移入收件箱....wtf... 此文僅僅告誡自己多動腦少作死

預加載combobox定義

script裡定義如下: $(function(){ $('#CUST_NAME').combobox({  valueField: 'value',  textField: 'label',  data: [{   label: '不用輸入',   value: '0'    },{   label: '詢問輸入',   value: '1'  },{   label: '必須輸入',   value: '2'  }] }); $('#CUST_NAME'').combobox('setVal

vue自定義指令

自定義指令可以允許代碼複用, 全局自定義指令 vue.directive('指令名',{鉤子函數:指令函數}) 局部自定義指令: vue({ directives:{指令名:{鉤子函數:指令函數} }) 自定指令提供了幾個鉤子函數: bind.inserted.update.componentUpdated.unbind 鉤子函數參數: el,binding,vnode,oldVnode 有時也可以不使用鉤子函數. 原文地址:https://www.cnblogs.com/Zhengxiaoxi

java_在JFrame上使用自定義圖片

package drawImage;import java.awt.Graphics;import java.awt.Graphics2D;import java.awt.Image;import java.io.File;import java.io.IOException;import javax.imageio.ImageIO;import javax.swing.JFrame;import javax.swing.JPanel;public class DrawImage extends

Linux系統SUDO的使用定義及設定

什麼是sudo?Sudo是可以讓某個用户不需要擁有(管理員)的賬號密碼,可以執行管理員的權限的.作為管理員可以指派某些用户可以執行某些 特定命令. Sudo的特點 它的特性主要有这样幾點: Sudo能够限制用户只在某台主機上運行某些命令 Sudo提供了豐富的日志,詳细地記錄了每個用户幹了什麼. 它能够將日記傳到中心主機或者日記服務器 Sudo使用時間戳文件來執行類似的"檢票"系统.當用户調用 sudo并且输入它的密碼時, 用户获得了一张存活期为5分钟的票 (这个值可以在编译的时候改变)

swift 2.3 我的第一個swift程式

2.3 我的第一個swift程式 STEP1:建立一個全新playground運動場程式專案 到Application 中,選取Xcode,在進入"Xcode 的歡迎視窗"後,請選取"Get started with a playground",來建立一個全新playground運動場程式專案. 圖 12 樣板專案執行的效果. STEP2:決定儲存的位置 接下來決定儲存檔案位置. 圖13 儲存的位置 STEP3:進入playground運動場程式模式 進入Xcode

swift2.2 我的第一個XCode APP程式

STEP1:開啟 Xcode 6 到Application 中,選取Xcode 6 ,來打開程式編輯環境工具. 圖5 選取Xcode 6. STEP2: 版權宣告的視窗 第一次執行時會出現版權宣告的視窗,只要選取"Agree同意"按鍵. 圖6 選取"Agree同意"按鍵 STEP3:建立一個全新的程式專案 在進入"Xcode 的歡迎視窗"後,請選取"Create a new Xcode project",來建立一個全新的程式專