容器
-
ABAP在选择界面上显示Docker容易实现拆分窗口
在ABAP程序选择界面上显示Docker容器实现报表一打开就显示多个窗口并展示ALV,提供一些值的输入参考或者让用户选择列出的某些值,效果如下。 参考代码: 上面的这种方法是在AB…
-
Ubuntu下docker的基本使用
123456789101112131415161718192021222324252627282930313233343536373839404142#安装docker.sudo apt-get install docker.io#启用dockersystemctl start dockersystemctl enable docker#查看docker版本docker version#非root用户访问Docker命令whoamicat /etc/groupsudo gpasswd -a myusername dockernewgrp docker#执行命令测试下权限添加是否成功docker --helpdocker infodocker psdocker imagesdocker search postgresql#docker的hello worldmkdir dockercd dockerpwddocker search whalesaydocker pull docker/whalesaydocker run docker/whalesay cowsay Hello Gavindocker rmi docker/whalesay:latest#删除容器(执行一次就启用了一个容器,要全部删除之后才能删除容器所引用的镜像)docker rm 05764675c2e8docker rm 75409c9bac90#删除镜像docker rmi docker/whalesay:latest#列出镜像docker images#停止docker服务ps -ef | grep dockerservice docker status #可以看到docker的运行时信息systemctl stop docker -
ABAP在同一个页面内显示查询界面和结果
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133REPORT zsearch_tcode.*初始化变量TYPE-POOLS:slis.TABLES:tstc.DATA:wa_alv_field TYPE slis_fieldcat_alv.DATA:wa_alv_layout TYPE slis_layout_alv.DATA:wa_alv_fieldcat TYPE slis_t_fieldcat_alv.DATA zxeinfo LIKE STANDARD TABLE OF tstc WITH HEADER LINE.SELECT * FROM tstc INTO CORRESPONDING FIELDS OF TABLE zxeinfo.*----------------------------------------------------------------------** CLASS LCL_REPORT DEFINITION*----------------------------------------------------------------------***----------------------------------------------------------------------*CLASS lcl_report DEFINITION.PUBLIC SECTION.DATA: t_data TYPE STANDARD TABLE OF tstc, " Output datr_ztcode TYPE RANGE OF tstc-tcode, " Select Optionr_zpgmna TYPE RANGE OF tstc-pgmna, " Select Optionr_zdypno TYPE RANGE OF tstc-dypno, " Select Optionr_zmenue TYPE RANGE OF tstc-menue, " Select Optionr_zcinfo TYPE RANGE OF tstc-cinfo, " Select Optionr_zarbgb TYPE RANGE OF tstc-arbgb. " Select OptionMETHODS:get_data,generate_output.ENDCLASS. "lcl_report DEFINITIONDATA: lo_report TYPE REF TO lcl_report.DATA: w_ztcode TYPE tstc-tcode.DATA: w_zpgmna TYPE tstc-pgmna.DATA: w_zdypno TYPE tstc-dypno.DATA: w_zmenue TYPE tstc-menue.DATA: w_zcinfo TYPE tstc-cinfo.DATA: w_zarbgb TYPE tstc-arbgb.** Selection ScreenSELECTION-SCREEN: BEGIN OF BLOCK blk1 WITH FRAME TITLE aaa.SELECT-OPTIONS:s_ztcode FOR tstc-tcode MEMORY ID ztcode,s_zpgmna FOR tstc-pgmna MEMORY ID zpgmna,s_zdypno FOR tstc-dypno MEMORY ID zdypno,s_zmenue FOR tstc-menue MEMORY ID zmenue,s_zcinfo FOR tstc-cinfo MEMORY ID zcinfo,s_zarbgb FOR tstc-arbgb MEMORY ID zarbgb.SELECTION-SCREEN: END OF BLOCK blk1.** InitializationINITIALIZATION.aaa = '请输入查询条件[事务:查询事务码信息]'.* object for the reportCREATE OBJECT lo_report.* generate outputlo_report->generate_output( ).** Start of SelectionSTART-OF-SELECTION.* Get datalo_report->r_ztcode = s_ztcode[].lo_report->r_zpgmna = s_zpgmna[].lo_report->r_zdypno = s_zdypno[].lo_report->r_zmenue = s_zmenue[].lo_report->r_zcinfo = s_zcinfo[].lo_report->r_zarbgb = s_zarbgb[].lo_report->get_data( ).*———————————————————————-** Local Class Implementation*———————————————————————-*CLASS lcl_report IMPLEMENTATION.METHOD get_data.SELECT * FROM tstcINTO TABLE me->t_dataWHERE tcode IN s_ztcode ANDpgmna IN s_zpgmna ANDdypno IN s_zdypno ANDmenue IN s_zmenue ANDcinfo IN s_zcinfo ANDarbgb IN s_zarbgb.IF sy-dbcnt IS INITIAL.MESSAGE s398(00) WITH '未找到符合条件的记录'.ENDIF.EXPORT data = me->t_data TO MEMORY ID sy-cprog.ENDMETHOD. "get_dataMETHOD generate_output.DATA: lo_dock TYPE REF TO cl_gui_docking_container,lo_cont TYPE REF TO cl_gui_container,lt_fcat TYPE lvc_t_fcat,gr_grid_d1001 TYPE REF TO cl_gui_alv_grid.IMPORT data = me->t_data FROM MEMORY ID sy-cprog.FREE MEMORY ID sy-cprog.CHECK me->t_data IS NOT INITIAL.CHECK lo_dock IS INITIAL.CREATE OBJECT lo_dockEXPORTINGrepid = sy-cprogdynnr = sy-dynnrratio = 68side = cl_gui_docking_container=>dock_at_bottomname = 'DOCK_CONT'.IF sy-subrc <> 0.MESSAGE 'Error in the Docking control' TYPE 'S'.ENDIF.CHECK gr_grid_d1001 IS INITIAL.lo_cont ?= lo_dock.CREATE OBJECT gr_grid_d1001EXPORTINGi_parent = lo_cont.CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'EXPORTINGi_buffer_active = spacei_structure_name = 'TSTC'i_client_never_display = 'X'i_bypassing_buffer = spaceCHANGINGct_fieldcat = lt_fcatEXCEPTIONSinconsistent_interface = 1program_error = 2OTHERS = 3.CALL METHOD gr_grid_d1001->set_table_for_first_displayEXPORTINGi_buffer_active = spacei_bypassing_buffer = spaceCHANGINGit_outtab = me->t_datait_fieldcatalog = lt_fcat.ENDMETHOD. "generate_outputENDCLASS. "lcl_report IMPLEMENTATION