I want to a program source of hp 4284A
I want to measure capacitance for of diode for voltage sweep from -5 to 5 using the hp 4284 LCR meter.
I don't learn labview. so I wish labview program source.
If you have a program source, send me that quickly, please.
I don't have time.
Duplicate post. See here.
Jarrod S.
National Instruments
Similar Messages
-
How to Upload Program Source Code
Hello,
i have a program which downloads the source code into text files.
I need to create all these into another server.
so i need a program to upload these programs.
Any idea how to it? Thanks in advance.
Thanks&Regards,
Sayanna DamerlaTry this custom code:
Upload and Download ABAP Source Code
Source Code Listing
Report: ZKBPROGS *
Function : Up/Download ABAP reports complete with texts *
- this program does not update TRDIR with the *
TRDIR entries that are in the program uploaded. Instead, *
current users stats are used. *
- this program allows selection of reports from a list or *
a single report can be tuped in and uploaded *
- this program also updates TADIR so that a development class*
is assigned to the program *
- this program checks to see if the program already has a *
TRDIR entry, and if it does, warns the user *
- this program will save/restore the program documenation too*
REPORT ZKBPROGS
NO STANDARD PAGE HEADING
LINE-SIZE 255.
Declare Database Objects *
tables:
DOKIL,
TRDIR.
Constants*
CONSTANTS:
MC_TRDIR_IDENTIFIER(72) TYPE C VALUE '%&%& RDIR',
MC_REPORT_IDENTIFIER(72) TYPE C VALUE '%&%& REPO',
MC_TEXT_IDENTIFIER(72) TYPE C VALUE '%&%& TEXP',
MC_THEAD_IDENTIFIER(72) TYPE C VALUE '%&%& HEAD',
MC_DOC_IDENTIFIER(72) TYPE C VALUE '%&%& DOKL',
MC_TRDIR_SHORT(4) TYPE C VALUE 'RDIR',
MC_REPORT_SHORT(4) TYPE C VALUE 'REPO',
MC_TEXT_SHORT(4) TYPE C VALUE 'TEXP',
MC_THEAD_SHORT(4) TYPE C VALUE 'HEAD',
MC_DOC_SHORT(4) TYPE C VALUE 'DOKP'.
Declare Module level data structures *
DATA: BEGIN OF MTAB_PROGRAM_SOURCE OCCURS 0,
LINE(72) TYPE C,
END OF MTAB_PROGRAM_SOURCE.
DATA: MTAB_PROGRAM_TRDIR LIKE TRDIR OCCURS 0 WITH HEADER LINE.
DATA: MTAB_PROGRAM_TEXTS LIKE TEXTPOOL OCCURS 0 WITH HEADER LINE.
DATA: MSTR_THEAD LIKE THEAD.
DATA: BEGIN OF MTAB_PROGRAM_FILE OCCURS 0,
LINE(275) TYPE C,
END OF MTAB_PROGRAM_FILE.
DATA: BEGIN OF MTAB_DIRECTORY OCCURS 0,
NAME LIKE TRDIR-NAME,
DESC(72) TYPE C,
SAVENAME LIKE RLGRAP-FILENAME,
END OF MTAB_DIRECTORY.
DATA: BEGIN OF MTAB_PROGRAM_DOCUMENTATION OCCURS 0,
LINE(255) TYPE C,
END OF MTAB_PROGRAM_DOCUMENTATION.
Selection Screen *
*-- Options for upload/download of programs
SELECTION-SCREEN BEGIN OF BLOCK FRM_OPTIONS WITH FRAME TITLE TEXT-UDL.
PARAMETERS:
RB_DOWN RADIOBUTTON GROUP UDL DEFAULT 'X'. " Download reports
SELECTION-SCREEN BEGIN OF BLOCK FRM_TRDIR WITH FRAME TITLE TEXT-DIR.
SELECT-OPTIONS:
S_NAME FOR TRDIR-NAME, " Program Name
S_SUBC FOR TRDIR-SUBC " Program Type
DEFAULT 'F' OPTION EQ SIGN E," Exclude Functions by default
S_CNAM FOR TRDIR-CNAM " Created by
DEFAULT SY-UNAME,
S_UNAM FOR TRDIR-UNAM, " Last Changed by
S_CDAT FOR TRDIR-CDAT, " Creation date
S_UDAT FOR TRDIR-UDAT. " Last update date
SELECTION-SCREEN END OF BLOCK FRM_TRDIR.
*-- Options for uploading programs
PARAMETERS:
RB_UP RADIOBUTTON GROUP UDL. " Upload reports
SELECTION-SCREEN BEGIN OF BLOCK FRM_UPLOAD WITH FRAME TITLE TEXT-UPL.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(29) TEXT-SNG.
PARAMETERS:
RB_FILE RADIOBUTTON GROUP HOW DEFAULT 'X'.
SELECTION-SCREEN COMMENT 33(42) TEXT-FNA.
SELECTION-SCREEN END OF LINE.
PARAMETERS:
RB_LIST RADIOBUTTON GROUP HOW.
SELECTION-SCREEN END OF BLOCK FRM_UPLOAD.
SELECTION-SCREEN END OF BLOCK FRM_OPTIONS.
*-- Options for up/downloading programs
SELECTION-SCREEN BEGIN OF BLOCK FRM_FILEN WITH FRAME TITLE TEXT-FIL.
PARAMETERS:
RB_DOS RADIOBUTTON GROUP FIL DEFAULT 'X', " Save to local
RB_UNIX RADIOBUTTON GROUP FIL, " Save to UNIX
P_PATH LIKE RLGRAP-FILENAME " Path to save files to
DEFAULT 'c:\temp\'.
SELECTION-SCREEN END OF BLOCK FRM_FILEN.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_NAME-LOW.
CALL FUNCTION 'F4_PROGRAM'
EXPORTING
OBJECT = S_NAME-LOW
SUPPRESS_SELECTION = 'X'
IMPORTING
RESULT = S_NAME-LOW
EXCEPTIONS
OTHERS = 1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_NAME-HIGH.
CALL FUNCTION 'F4_PROGRAM'
EXPORTING
OBJECT = S_NAME-HIGH
SUPPRESS_SELECTION = 'X'
IMPORTING
RESULT = S_NAME-HIGH
EXCEPTIONS
OTHERS = 1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_UNAM-LOW.
PERFORM GET_NAME USING 'S_UNAM-LOW'
CHANGING S_UNAM-LOW.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_UNAM-HIGH.
PERFORM GET_NAME USING 'S_UNAM-HIGH'
CHANGING S_UNAM-HIGH.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_CNAM-LOW.
PERFORM GET_NAME USING 'S_CNAM-LOW'
CHANGING S_CNAM-LOW.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_CNAM-HIGH.
PERFORM GET_NAME USING 'S_CNAM-HIGH'
CHANGING S_CNAM-HIGH.
TOP-OF-PAGE.
IF RB_LIST = 'X'.
FORMAT COLOR COL_HEADING.
NEW-LINE.
WRITE: AT 3 TEXT-H01,
AT 15 TEXT-H03.
FORMAT COLOR OFF.
ENDIF.
AT LINE-SELECTION.
CHECK RB_LIST = 'X'. " only do in list mode
READ LINE SY-CUROW FIELD VALUE MTAB_DIRECTORY-SAVENAME.
*-- Read file into an internal table
PERFORM READ_REPORT_FROM_DISK TABLES MTAB_PROGRAM_FILE
USING MTAB_DIRECTORY-SAVENAME.
*-- Split table into TADIR entry, report lines, and report text
PERFORM SPLIT_INCOMING_FILE TABLES MTAB_PROGRAM_FILE
MTAB_PROGRAM_SOURCE
MTAB_PROGRAM_TEXTS
MTAB_PROGRAM_DOCUMENTATION
CHANGING TRDIR
MSTR_THEAD.
*-- Save all of the data
PERFORM INSERT_NEW_REPORT TABLES MTAB_PROGRAM_SOURCE
MTAB_PROGRAM_TEXTS
MTAB_PROGRAM_DOCUMENTATION
USING TRDIR
MSTR_THEAD.
Start of processing *
START-OF-SELECTION.
FORMAT COLOR COL_NORMAL.
IF RB_DOWN = 'X'.
PERFORM DOWNLOAD_REPORTS.
ELSEIF RB_UP = 'X'.
PERFORM UPLOAD_REPORTS.
ENDIF.
END-OF-SELECTION.
IF RB_DOWN = 'X'.
CONCATENATE P_PATH
'directory.txt'
INTO P_PATH.
PERFORM SAVE_TABLE_TO_FILE TABLES MTAB_DIRECTORY
USING P_PATH.
ENDIF.
FORM UPLOAD_REPORTS *
FORM UPLOAD_REPORTS.
*-- Can upload a reports entered in selection criteria or
*-- select from a list. List can be from index.txt in same directory
*-- (created by the download) or by reading the first line of each file
*-- in the directory.
IF RB_FILE = 'X'. " Upload single program from a file
*-- Read file into an internal table
PERFORM READ_REPORT_FROM_DISK TABLES MTAB_PROGRAM_FILE
USING P_PATH.
*-- Split table into TADIR entry, report lines, and report text
PERFORM SPLIT_INCOMING_FILE TABLES MTAB_PROGRAM_FILE
MTAB_PROGRAM_SOURCE
MTAB_PROGRAM_TEXTS
MTAB_PROGRAM_DOCUMENTATION
CHANGING TRDIR
MSTR_THEAD.
*-- Save all of the data
PERFORM INSERT_NEW_REPORT TABLES MTAB_PROGRAM_SOURCE
MTAB_PROGRAM_TEXTS
MTAB_PROGRAM_DOCUMENTATION
USING TRDIR
MSTR_THEAD.
ELSEIF RB_LIST = 'X'. " Show list for user to choose from
*-- get list of report names/descriptions from directory text
CONCATENATE P_PATH
'directory.txt'
INTO P_PATH.
PERFORM READ_REPORT_FROM_DISK TABLES MTAB_DIRECTORY
USING P_PATH.
SORT MTAB_DIRECTORY.
*-- Write out list of report names/descriptions
LOOP AT MTAB_DIRECTORY.
WRITE:
/ MTAB_DIRECTORY-NAME UNDER TEXT-H01,
MTAB_DIRECTORY-DESC UNDER TEXT-H03,
MTAB_DIRECTORY-SAVENAME.
ENDLOOP.
*-- Process user selections for reports to upload.
ENDIF.
ENDFORM. " upload_reports
FORM DOWNLOAD_REPORTS *
From the user selections, get all programs that meet the *
criteria, and save them in ftab_program_directory. *
Also save the report to disk. *
FORM DOWNLOAD_REPORTS.
DATA:
LC_FULL_FILENAME LIKE RLGRAP-FILENAME.
*-- The table is put into an internal table because the program will
*-- abend if multiple transfers to a dataset occur within a SELECT/
*-- ENDSELCT (tested on 3.1H)
SELECT * FROM TRDIR
INTO TABLE MTAB_PROGRAM_TRDIR
WHERE NAME IN S_NAME
AND SUBC IN S_SUBC
AND CNAM IN S_CNAM
AND UNAM IN S_UNAM
AND CDAT IN S_CDAT
AND UDAT IN S_UDAT.
LOOP AT MTAB_PROGRAM_TRDIR.
*-- Clear out text and source code tables
CLEAR:
MTAB_PROGRAM_FILE,
MTAB_PROGRAM_SOURCE,
MTAB_PROGRAM_TEXTS,
MTAB_PROGRAM_DOCUMENTATION.
REFRESH:
MTAB_PROGRAM_FILE,
MTAB_PROGRAM_SOURCE,
MTAB_PROGRAM_TEXTS,
MTAB_PROGRAM_DOCUMENTATION.
*-- Get the report
READ REPORT MTAB_PROGRAM_TRDIR-NAME INTO MTAB_PROGRAM_SOURCE.
*-- Get the text for the report
READ TEXTPOOL MTAB_PROGRAM_TRDIR-NAME INTO MTAB_PROGRAM_TEXTS.
*-- Get the documentation for the report
CLEAR DOKIL.
SELECT * UP TO 1 ROWS FROM DOKIL
WHERE ID = 'RE'
AND OBJECT = MTAB_PROGRAM_TRDIR-NAME
AND LANGU = SY-LANGU
AND TYP = 'E'
ORDER BY VERSION DESCENDING.
ENDSELECT.
*-- Documentation exists for this object
IF SY-SUBRC = 0.
CALL FUNCTION 'DOCU_READ'
EXPORTING
ID = DOKIL-ID
LANGU = DOKIL-LANGU
OBJECT = DOKIL-OBJECT
TYP = DOKIL-TYP
VERSION = DOKIL-VERSION
IMPORTING
HEAD = MSTR_THEAD
TABLES
LINE = MTAB_PROGRAM_DOCUMENTATION
EXCEPTIONS
OTHERS = 1.
ENDIF.
*-- Put the report code and texts into a single file
*-- Put the identifier line in so that the start of the TRDIR line
*-- is marked
CONCATENATE MC_TRDIR_IDENTIFIER
MTAB_PROGRAM_TRDIR-NAME
INTO MTAB_PROGRAM_FILE-LINE.
APPEND MTAB_PROGRAM_FILE.
*-- Add the TRDIR line
MTAB_PROGRAM_FILE-LINE = MTAB_PROGRAM_TRDIR.
APPEND MTAB_PROGRAM_FILE.
*-- Put the identifier line in so that the start of the report code
*-- is marked
CONCATENATE MC_REPORT_IDENTIFIER
MTAB_PROGRAM_TRDIR-NAME
INTO MTAB_PROGRAM_FILE-LINE.
APPEND MTAB_PROGRAM_FILE.
*-- Add the report code
LOOP AT MTAB_PROGRAM_SOURCE.
MTAB_PROGRAM_FILE = MTAB_PROGRAM_SOURCE.
APPEND MTAB_PROGRAM_FILE.
ENDLOOP.
*-- Put the identifier line in so that the start of the report text
*-- is marked
CONCATENATE MC_TEXT_IDENTIFIER
MTAB_PROGRAM_TRDIR-NAME
INTO MTAB_PROGRAM_FILE-LINE.
APPEND MTAB_PROGRAM_FILE.
*-- Add the report texts
LOOP AT MTAB_PROGRAM_TEXTS.
MTAB_PROGRAM_FILE = MTAB_PROGRAM_TEXTS.
APPEND MTAB_PROGRAM_FILE.
ENDLOOP.
*-- Put the identifier line in so that the start of the THEAD record
*-- is marked
CONCATENATE MC_THEAD_IDENTIFIER
MTAB_PROGRAM_TRDIR-NAME
INTO MTAB_PROGRAM_FILE-LINE.
APPEND MTAB_PROGRAM_FILE.
MTAB_PROGRAM_FILE = MSTR_THEAD.
APPEND MTAB_PROGRAM_FILE.
*-- Put the identifier line in so that the start of the report
*-- documentation is marked
CONCATENATE MC_DOC_IDENTIFIER
MTAB_PROGRAM_TRDIR-NAME
INTO MTAB_PROGRAM_FILE-LINE.
APPEND MTAB_PROGRAM_FILE.
*-- Add the report documentation
LOOP AT MTAB_PROGRAM_DOCUMENTATION.
MTAB_PROGRAM_FILE = MTAB_PROGRAM_DOCUMENTATION.
APPEND MTAB_PROGRAM_FILE.
ENDLOOP.
*-- Make the fully pathed filename that report will be saved to
CONCATENATE P_PATH
MTAB_PROGRAM_TRDIR-NAME
'.txt'
INTO LC_FULL_FILENAME.
PERFORM SAVE_TABLE_TO_FILE TABLES MTAB_PROGRAM_FILE
USING LC_FULL_FILENAME.
*-- Write out message with Program Name/Description
READ TABLE MTAB_PROGRAM_TEXTS WITH KEY ID = 'R'.
IF SY-SUBRC = 0.
MTAB_DIRECTORY-NAME = MTAB_PROGRAM_TRDIR-NAME.
MTAB_DIRECTORY-DESC = MTAB_PROGRAM_TEXTS-ENTRY.
MTAB_DIRECTORY-SAVENAME = LC_FULL_FILENAME.
APPEND MTAB_DIRECTORY.
WRITE: / MTAB_PROGRAM_TRDIR-NAME,
MTAB_PROGRAM_TEXTS-ENTRY(65) COLOR COL_HEADING.
ELSE.
MTAB_DIRECTORY-NAME = MTAB_PROGRAM_TRDIR-NAME.
MTAB_DIRECTORY-DESC = 'No description available'.
MTAB_DIRECTORY-SAVENAME = LC_FULL_FILENAME.
APPEND MTAB_DIRECTORY.
WRITE: / MTAB_PROGRAM_TRDIR-NAME.
ENDIF.
ENDLOOP.
ENDFORM. " BUILD_PROGRAM_DIRECTORY
FORM SAVE_TABLE_TO_FILE *
--> FTAB_TABLE *
--> F_FILENAME *
FORM SAVE_TABLE_TO_FILE TABLES FTAB_TABLE
USING F_FILENAME.
IF RB_DOS = 'X'. " Save file to presentation server
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
FILENAME = F_FILENAME
FILETYPE = 'ASC'
TABLES
DATA_TAB = FTAB_TABLE
EXCEPTIONS
OTHERS = 4.
IF SY-SUBRC NE 0.
WRITE: / 'Error opening dataset' COLOR COL_NEGATIVE,
F_FILENAME COLOR COL_NEGATIVE.
ENDIF.
ELSE. " Save file to application server
OPEN DATASET F_FILENAME FOR OUTPUT IN TEXT MODE.
IF SY-SUBRC = 0.
LOOP AT FTAB_TABLE.
TRANSFER FTAB_TABLE TO F_FILENAME.
IF SY-SUBRC NE 0.
WRITE: / 'Error writing record to file;' COLOR COL_NEGATIVE,
F_FILENAME COLOR COL_NEGATIVE.
ENDIF.
ENDLOOP.
ELSE.
WRITE: / 'Error opening dataset' COLOR COL_NEGATIVE,
F_FILENAME COLOR COL_NEGATIVE.
ENDIF.
ENDIF. " End RB_DOS
ENDFORM. " SAVE_PROGRAM
FORM READ_REPORT_FROM_DISK *
Read report into internal table. Can read from local or *
remote computer *
FORM READ_REPORT_FROM_DISK TABLES FTAB_TABLE
USING F_FILENAME.
DATA:
LC_MESSAGE(128) TYPE C.
CLEAR FTAB_TABLE.
REFRESH FTAB_TABLE.
IF RB_DOS = 'X'.
TRANSLATE F_FILENAME USING '/\'. " correct slash for Dos PC file
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
FILENAME = F_FILENAME
FILETYPE = 'ASC'
TABLES
DATA_TAB = FTAB_TABLE
EXCEPTIONS
CONVERSION_ERROR = 1
FILE_OPEN_ERROR = 2
FILE_READ_ERROR = 3
INVALID_TABLE_WIDTH = 4
INVALID_TYPE = 5
NO_BATCH = 6
UNKNOWN_ERROR = 7
OTHERS = 8.
IF SY-SUBRC >< 0.
WRITE: / 'Error reading file from local PC' COLOR COL_NEGATIVE.
ENDIF.
ELSEIF RB_UNIX = 'X'.
TRANSLATE F_FILENAME USING '\/'. " correct slash for unix
OPEN DATASET F_FILENAME FOR INPUT MESSAGE LC_MESSAGE IN TEXT MODE.
IF SY-SUBRC = 0.
DO.
READ DATASET F_FILENAME INTO FTAB_TABLE.
IF SY-SUBRC = 0.
APPEND FTAB_TABLE.
ELSE.
EXIT.
ENDIF.
ENDDO.
CLOSE DATASET F_FILENAME.
ELSE.
WRITE: / 'Error reading file from remote computer'
COLOR COL_NEGATIVE,
/ LC_MESSAGE,
/ F_FILENAME.
SY-SUBRC = 4.
ENDIF.
ENDIF.
ENDFORM. " READ_REPORT_FROM_DISK
FORM SPLIT_INCOMING_FILE *
--> FTAB_PROGRAM_FILE *
--> FTAB_PROGRAM_SOURCE *
--> ` *
--> FTAB_PROGRAM_TEXTS *
FORM SPLIT_INCOMING_FILE TABLES FTAB_PROGRAM_FILE
STRUCTURE MTAB_PROGRAM_FILE
FTAB_PROGRAM_SOURCE
STRUCTURE MTAB_PROGRAM_SOURCE
FTAB_PROGRAM_TEXTS
STRUCTURE MTAB_PROGRAM_TEXTS
FTAB_PROGRAM_DOCUMENTATION
STRUCTURE MTAB_PROGRAM_DOCUMENTATION
CHANGING FSTR_TRDIR
FSTR_THEAD.
DATA:
LC_DATATYPE(4) TYPE C, " Type of data, REPO, TEXP, RDIR
LC_PROGRAM_FILE LIKE MTAB_PROGRAM_FILE.
LOOP AT FTAB_PROGRAM_FILE.
LC_PROGRAM_FILE = FTAB_PROGRAM_FILE.
CASE LC_PROGRAM_FILE(9).
WHEN MC_TRDIR_IDENTIFIER.
LC_DATATYPE = MC_TRDIR_SHORT.
WHEN MC_REPORT_IDENTIFIER.
LC_DATATYPE = MC_REPORT_SHORT.
WHEN MC_TEXT_IDENTIFIER.
LC_DATATYPE = MC_TEXT_SHORT.
WHEN MC_DOC_IDENTIFIER.
LC_DATATYPE = MC_DOC_SHORT.
WHEN MC_THEAD_IDENTIFIER.
LC_DATATYPE = MC_THEAD_SHORT.
WHEN OTHERS. " Actual contents of report, trdir, or text
CASE LC_DATATYPE.
WHEN MC_TRDIR_SHORT.
FSTR_TRDIR = FTAB_PROGRAM_FILE.
WHEN MC_REPORT_SHORT.
FTAB_PROGRAM_SOURCE = FTAB_PROGRAM_FILE.
APPEND FTAB_PROGRAM_SOURCE.
WHEN MC_TEXT_SHORT.
FTAB_PROGRAM_TEXTS = FTAB_PROGRAM_FILE.
APPEND FTAB_PROGRAM_TEXTS.
WHEN MC_THEAD_SHORT.
FSTR_THEAD = FTAB_PROGRAM_FILE.
WHEN MC_DOC_SHORT.
FTAB_PROGRAM_DOCUMENTATION = FTAB_PROGRAM_FILE.
APPEND FTAB_PROGRAM_DOCUMENTATION.
ENDCASE.
ENDCASE.
ENDLOOP.
ENDFORM. " SPLIT_INCOMING_FILE
FORM INSERT_NEW_REPORT*
--> FTAB_PROGRAM_SOURCE *
--> FTAB_PROGRAM_TEXTS *
--> F_TRDIR *
FORM INSERT_NEW_REPORT TABLES FTAB_PROGRAM_SOURCE
STRUCTURE MTAB_PROGRAM_SOURCE
FTAB_PROGRAM_TEXTS
STRUCTURE MTAB_PROGRAM_TEXTS
FTAB_PROGRAM_DOCUMENTATION
STRUCTURE MTAB_PROGRAM_DOCUMENTATION
USING FSTR_TRDIR LIKE TRDIR
FSTR_THEAD LIKE MSTR_THEAD.
DATA:
LC_OBJ_NAME LIKE E071-OBJ_NAME,
LC_LINE2(40) TYPE C,
LC_ANSWER(1) TYPE C.
*-- read trdir to see if the report already exists, if it does, prompt
*-- user to overwrite or abort.
SELECT SINGLE * FROM TRDIR WHERE NAME = FSTR_TRDIR-NAME.
IF SY-SUBRC = 0. " Already exists
CONCATENATE 'want to overwrite report'
FSTR_TRDIR-NAME
INTO LC_LINE2 SEPARATED BY SPACE.
CONCATENATE LC_LINE2
INTO LC_LINE2.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
DEFAULTOPTION = 'N'
TEXTLINE1 = 'The selected report already exists, do you'
TEXTLINE2 = LC_LINE2
TITEL = 'Report already exists'
CANCEL_DISPLAY = SPACE
IMPORTING
ANSWER = LC_ANSWER
EXCEPTIONS
OTHERS = 1.
ELSE.
LC_ANSWER = 'J'.
ENDIF.
IF LC_ANSWER = 'J'.
*-- Create the TADIR entry. (TRDIR entry created by INSERT REPORT)
LC_OBJ_NAME = TRDIR-NAME.
CALL FUNCTION 'TR_TADIR_POPUP_ENTRY_E071'
EXPORTING
WI_E071_PGMID = 'R3TR'
WI_E071_OBJECT = 'PROG'
WI_E071_OBJ_NAME = LC_OBJ_NAME
WI_TADIR_DEVCLASS = '$TMP'
EXCEPTIONS
EXIT = 3
OTHERS = 4.
IF SY-SUBRC = 0.
*-- Create Report
INSERT REPORT FSTR_TRDIR-NAME FROM FTAB_PROGRAM_SOURCE.
*-- Create Texts
INSERT TEXTPOOL FSTR_TRDIR-NAME FROM FTAB_PROGRAM_TEXTS
LANGUAGE SY-LANGU.
*-- Save Documentation
CALL FUNCTION 'DOCU_UPDATE'
EXPORTING
HEAD = FSTR_THEAD
STATE = 'A'
TYP = 'E'
VERSION = '1'
TABLES
LINE = FTAB_PROGRAM_DOCUMENTATION
EXCEPTIONS
OTHERS = 1.
ELSE.
WRITE: / 'Error updating the TADIR entry' COLOR COL_NEGATIVE,
'Program' COLOR COL_NEGATIVE INTENSIFIED OFF,
FSTR_TRDIR-NAME, 'was not loaded into SAP.'
COLOR COL_NEGATIVE INTENSIFIED OFF.
ENDIF.
ELSE.
WRITE: / FSTR_TRDIR-NAME COLOR COL_NEGATIVE,
'was not uploaded into SAP. Action cancelled by user'
COLOR COL_NEGATIVE INTENSIFIED OFF.
ENDIF.
ENDFORM. " INSERT_NEW_REPORT
FORM GET_NAME *
--> VALUE(F_FIELD) *
--> F_NAME *
FORM GET_NAME USING VALUE(F_FIELD)
CHANGING F_NAME.
DATA: LTAB_FIELDS LIKE DYNPREAD OCCURS 0 WITH HEADER LINE,
LC_PROG LIKE D020S-PROG,
LC_DNUM LIKE D020S-DNUM.
TRANSLATE F_FIELD TO UPPER CASE.
refresh ltab_fields.
LTAB_FIELDS-FIELDNAME = F_FIELD.
append ltab_fields.
LC_PROG = SY-REPID .
LC_DNUM = SY-DYNNR .
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
DYNAME = LC_PROG
DYNUMB = LC_DNUM
TABLES
dynpfields = ltab_fields
EXCEPTIONS
OTHERS = 01.
read table ltab_fields index 1.
IF SY-SUBRC EQ 0.
F_NAME = LTAB_FIELDS-FIELDVALUE.
refresh ltab_fields.
ENDIF.
CALL FUNCTION 'F4_USER'
EXPORTING
OBJECT = F_NAME
IMPORTING
RESULT = F_NAME.
ENDFORM. " GET_NAME
Program Texts
DIR File Download Options (File Selection)
FIL File Options
FNA Enter filename below (under File Options)
H01 Prog Name
H03 Program Description
SNG Upload a single file
UDL Upload to SAP/Download from SAP
UPL File Upload Options
R Backup/Restore program source code with texts
P_PATH Path to save programs to
RB_DOS Files on local computer
RB_DOWN Download Programs
RB_FILE Upload a single file
RB_LIST Select program(s) from a list
RB_UNIX Files on remote computer
RB_UP Upload Programs to SAP
S_CDAT Date Created
S_CNAM Created by UserID
S_NAME Program Name
S_SUBC Program Type
S_UDAT Date Changed
S_UNAM Last Changed by UserID
Regards,
Joy. -
How to format programming source-code in a Framemaker document?
I have to write up a technical document in Framemaker that explains various programming source-code.
So my document consists of a bunch of text, followed by a bunch of source code (Java, XML) and then followed by more text, etc.
What I'm confused about is how to format source code as part of my document. Has anyone done this for a technical document and come across any instructions or tips? So far my Googling hasn't produced anything relevant to what I need to do.If you haven't created a paragraph format that uses a fixed-width font, such as Courier or a console font, you need to do that.
If you want to preserve line breaks in the code, and if it has fairly long lines, you're likely to need to specify a font size of 7 pt. or so. For really long lines, you may need to go to a landscape page format or incorporate a way of telling your readers that the lines wrap.
Those are the basics. If you want to get fancier, I usually set up a table so I can apply a contrasting background tone, and format each line of code as a cell (it's a one-column table). You can also add a second column to hold line numbers, if you want.
Art -
why itunes 10.5 64 bit wont install on my 64bit hp probook ? when i run it my user account control asks me that do you want the following program from unknown purblisher to make changes on you on this computer?
program name :itunes 64setup.exe
purblisher:unknow
file location: hard drive on this computer when i click yes nothing happens
aditional ateps iv taken, uninstalled all itunes including quick time,banjour mobile updates ,everthing that has to do with apple products.went into window regestry and i dint find anything that has to do with apple in software bar
restarted my laptop several times, put the setup on a External USB but still nothing happens ,blowsed all most all sites on goggle no where iv seen this problem ,pliz who can help?why itunes 10.5 64 bit wont install on my 64bit hp probook ? when i run it my user account control asks me that do you want the following program from unknown purblisher to make changes on you on this computer?
program name :itunes 64setup.exe
purblisher:unknow
file location: hard drive on this computer when i click yes nothing happens
aditional ateps iv taken, uninstalled all itunes including quick time,banjour mobile updates ,everthing that has to do with apple products.went into window regestry and i dint find anything that has to do with apple in software bar
restarted my laptop several times, put the setup on a External USB but still nothing happens ,blowsed all most all sites on goggle no where iv seen this problem ,pliz who can help? -
after downloading iphone pictures to desktop, itunes won't open. I downloaded itunes 10.6 (64bit) but get "Do you want the following program to make changes to your computer?" Apple Inc. I've clicked "yes", restarted the computer, and still no luck.
I also have the same problem, but the Software Updates tool doesn't recognise that Quicktime is out of date. Have you tried downloading Quicktime 7.7 Leopard from http://support.apple.com/downloads/#quicktime as this worked for me...?
-
When I Open Mozilla browser it pops up with Do you want to allow program: (x86) mozillafirefox/firefox/exe. I say yes and it pulls up the internet but says there was a problem. Happens everytime i open Mozilla. I've rebooted, opened in safe mode/
Nothing makes it go away.This is a brand new installation of Firefox? I don't know whether there is a troubleshooting article on this scenario.
Can you start up in Firefox's [https://support.mozilla.com/en-US/kb/Safe%20Mode Safe Mode]? Hold the Shift key when double-clicking the Firefox program icon to start up in safe mode. You can ignore the checkboxes and just Continue in Safe Mode. -
Want to create program (XYZ) for scheduling anther program(ABC)
Requirement :
I have one report ABC and I want to create program XYZ for scheduling the report ABC (without executing the program ABC ).
Output : Program XYZ
1) schedule the report ABC
2) Provide the output of ABCSeee if the below code help:
REPORT Z_MQSCHD NO STANDARD PAGE HEADING LINE-SIZE 170 LINE-COUNT 58 .
DATA: ZCOUNT LIKE SY-TABIX,
JOBNAME LIKE TBTCJOB-JOBNAME,
PARAMS LIKE PRI_PARAMS,
JOBCOUNT LIKE TBTCJOB-JOBCOUNT,
AUTHCKNAM LIKE TBTCJOB-AUTHCKNAM,
SDLSTRTTM LIKE TBTCJOB-SDLSTRTTM,
SDLSTRTDT LIKE TBTCJOB-SDLSTRTDT,
VARIANT LIKE RALDB-VARIANT,
REPORT LIKE SY-REPID,
ZTIME LIKE SY-UZEIT,
PREDJOB_CHECKSTAT LIKE TBTCSTRT-CHECKSTAT,
PRED_JOBCOUNT LIKE TBTCJOB-JOBCOUNT,
PRED_JOBNAME LIKE TBTCJOB-JOBNAME,
RELEASED LIKE BTCH0000-CHAR1.
*email variables
DATA: emailaddr(80) TYPE c.
data: objtxt like solisti1 occurs 10 with header line.
data: tab_lines like sy-tabix.
DATA: OBJECT_HD_CHANGE LIKE SOOD1.
DATA: OBJECT_TYPE LIKE SOOD-OBJTP.
DATA: OBJCONT LIKE SOLI OCCURS 0 WITH HEADER LINE.
DATA: RECEIVERS LIKE SOOS1 OCCURS 0 WITH HEADER LINE.
SELECTION-SCREEN: BEGIN OF BLOCK A1 WITH FRAME TITLE TEXT-001.
PARAMETERS:
NAME LIKE RS38M-PROGRAMM OBLIGATORY,
VAR LIKE RS38M-SELSET OBLIGATORY,
JOB LIKE TBTCJOB-JOBNAME,
FRQ1 LIKE SY-INDEX,
FRQ2(2) TYPE C.
SELECTION-SCREEN END OF BLOCK A1.
SELECTION-SCREEN: BEGIN OF BLOCK A2 WITH FRAME TITLE TEXT-002.
PARAMETERS: ZDATE LIKE SY-DATUM DEFAULT SY-DATUM OBLIGATORY.
SELECT-OPTIONS:
TIME1 FOR SY-UZEIT OBLIGATORY.
SELECTION-SCREEN END OF BLOCK A2.
SELECTION-SCREEN: BEGIN OF BLOCK A3 WITH FRAME TITLE TEXT-003.
PARAMETERS: p_mail AS CHECKBOX DEFAULT 'X'. "X = Mail report
SELECT-OPTIONS: so_mlist FOR emailaddr.
SELECTION-SCREEN END OF BLOCK A3.
AT SELECTION-SCREEN ON FRQ2.
IF FRQ2 NE 'H' AND FRQ2 NE 'M' AND FRQ2 NE 'S'.
MESSAGE E001(Z1) WITH 'Time Unit must be H or M or S'.
ENDIF.
AT SELECTION-SCREEN ON ZDATE.
IF ZDATE < SY-DATUM.
MESSAGE E001(Z1) WITH 'Date must be greater than current date'.
ENDIF.
AT SELECTION-SCREEN ON TIME1.
IF ZDATE = SY-DATUM AND TIME1-LOW < SY-UZEIT.
MESSAGE E001(Z1) WITH 'Time must be greater than current time'.
ENDIF.
AT SELECTION-SCREEN OUTPUT.
IF JOB IS INITIAL.
JOB = NAME.
ENDIF.
$$* Start of selection
START-OF-SELECTION.
IF JOB IS INITIAL.
JOB = NAME.
ENDIF.
clear params.
call function 'GET_PRINT_PARAMETERS'
EXPORTING
mode = 'CURRENT'
no_dialog = 'X'
IMPORTING
out_parameters = params.
params-paart = 'X_PAPER'.
ZTIME = TIME1-LOW.
JOBNAME = JOB.
VARIANT = VAR.
REPORT = NAME.
AUTHCKNAM = SY-UNAME.
PARAMS-PRIMM = SPACE.
SDLSTRTDT = ZDATE.
CLEAR: ZCOUNT.
WHILE ZTIME LE TIME1-HIGH.
SDLSTRTTM = ZTIME.
CALL FUNCTION 'JOB_OPEN'
EXPORTING
JOBNAME = JOB
IMPORTING
JOBCOUNT = JOBCOUNT
EXCEPTIONS
OTHERS = 4.
CALL FUNCTION 'JOB_SUBMIT'
EXPORTING
AUTHCKNAM = AUTHCKNAM
JOBCOUNT = JOBCOUNT
JOBNAME = JOB
PRIPARAMS = PARAMS
REPORT = REPORT
VARIANT = VARIANT.
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
SDLSTRTDT = SDLSTRTDT
SDLSTRTTM = SDLSTRTTM
JOBCOUNT = JOBCOUNT
JOBNAME = JOB
IMPORTING
JOB_WAS_RELEASED = RELEASED.
IF RELEASED = 'X'.
WRITE: / 'Job', JOBNAME, '(' ,JOBCOUNT, ')' ,'will run at', ZTIME,
'on', ZDATE, 'with program',NAME, 'and variant', VAR.
IF NOT P_MAIL IS INITIAL.
CLEAR OBJCONT.
CONCATENATE
'Job' JOBNAME '(' JOBCOUNT ')' 'will run at' ZTIME 'on' ZDATE
'with program' NAME 'and variant' VAR
INTO OBJCONT SEPARATED BY SPACE.
APPEND OBJCONT.
ENDIF.
ELSE.
WRITE: /
'Unable to release job', JOBNAME, '(' ,JOBCOUNT, ')' ,'at', ZTIME,
'on', ZDATE, 'with program',NAME, 'and variant', VAR.
IF NOT P_MAIL IS INITIAL.
CLEAR OBJCONT.
CONCATENATE
'Unable to release job' JOBNAME '(' JOBCOUNT ')' 'at' ZTIME
'on' ZDATE 'with program' NAME 'and variant' VAR
INTO OBJCONT SEPARATED BY SPACE.
APPEND OBJCONT.
ENDIF.
ENDIF.
CASE FRQ2.
WHEN 'H'.
ZTIME = ZTIME + ( 60 * 60 * FRQ1 ).
WHEN 'M'.
ZTIME = ZTIME + ( 60 * FRQ1 ).
WHEN 'S'.
ZTIME = ZTIME + FRQ1.
WHEN OTHERS.
ENDCASE.
ENDWHILE.
IF NOT P_MAIL IS INITIAL.
CHECK NOT SO_MLIST IS INITIAL.
PERFORM SENDEMAIL.
ENDIF.
*& Form SENDEMAIL
text
--> p1 text
<-- p2 text
FORM SENDEMAIL.
clear objcont.
append objcont.
append objcont.
concatenate
'This e-mail was sent from an automated system...' sy-sysid sy-mandt
into objcont.
append objcont.
clear objcont.
objcont = 'Do not reply to this message.'(013).
append objcont.
MOVE: SY-LANGU TO OBJECT_HD_CHANGE-OBJLA,
'NOTIFICATION' TO OBJECT_HD_CHANGE-OBJNAM,
'Report from job scheduler' TO OBJECT_HD_CHANGE-OBJDES.
MOVE 'RAW' TO OBJECT_TYPE.
describe table objtxt lines tab_lines.
read table objtxt index tab_lines.
*Now we will create the packing list entry for our text body.
describe table objtxt lines tab_lines.
read table objtxt index tab_lines.
OBJECT_HD_CHANGE-OBJLEN = tab_lines * 255.
*in this next section we create our recipient list.
LOOP AT so_mlist.
clear RECEIVERS.
move so_mlist-low to RECEIVERS-RECEXTNAM.
MOVE 'U' TO RECEIVERS-RECESC.
APPEND RECEIVERS.
if not so_mlist-high is initial.
move so_mlist-high TO RECEIVERS-RECEXTNAM.
MOVE 'U' TO RECEIVERS-RECESC.
APPEND RECEIVERS.
endif.
ENDLOOP.
CALL FUNCTION 'SO_OBJECT_SEND'
EXPORTING
OBJECT_HD_CHANGE = OBJECT_HD_CHANGE
OBJECT_TYPE = OBJECT_TYPE
TABLES
OBJCONT = OBJCONT
RECEIVERS = RECEIVERS
EXCEPTIONS
ACTIVE_USER_NOT_EXIST = 1
COMMUNICATION_FAILURE = 2
COMPONENT_NOT_AVAILABLE = 3
FOLDER_NOT_EXIST = 4
FOLDER_NO_AUTHORIZATION = 5
FORWARDER_NOT_EXIST = 6
NOTE_NOT_EXIST = 7
OBJECT_NOT_EXIST = 8
OBJECT_NOT_SENT = 9
OBJECT_NO_AUTHORIZATION = 10
OBJECT_TYPE_NOT_EXIST = 11
OPERATION_NO_AUTHORIZATION = 12
OWNER_NOT_EXIST = 13
PARAMETER_ERROR = 14
SUBSTITUTE_NOT_ACTIVE = 15
SUBSTITUTE_NOT_DEFINED = 16
SYSTEM_FAILURE = 17
TOO_MUCH_RECEIVERS = 18
USER_NOT_EXIST = 19
ORIGINATOR_NOT_EXIST = 20
X_ERROR = 21
OTHERS = 22.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " SENDEMAIL -
The following pop-up is displayed after every log-in, even after it is clicked yes after previous log-ins. Several students log-in the computers daily. How do I rid THIS?:
User Account Control
"Do you want the following program to make changes to this computer?
Program Name: FireFox Helper
Verified Publisher: Mozilla Corporation
File Origin: Hard Drive on this ComputerIn Windows 7, Microsoft updated UAC in several ways. By default, UAC does not prompt when certain programs included with Windows make changes requiring elevated permissions. Other programs still trigger a UAC prompt. The strictness of UAC can be changed to either always prompt, or to never do so.
[http://windows.microsoft.com/eN-US/windows-vista/What-is-User-Account-Control What is User Account Control?]
[http://windows.microsoft.com/en-US/windows-vista/Turn-User-Account-Control-on-or-off Turn User Account Control on or off]
It is the same on win7.
[http://en.wikipedia.org/wiki/User_Account_Control User Account Control]
thank you
Please mark "Solved" the answer that really solve the problem, to help others with a similar problem. -
I want to get the source code of the examples of berkeley DB with Java
Hi
I want to get the source code of the examples of berkeley DB with Java
Thanks and Regards
RahulLook in the "examples" directory, in the BDB JE package that you downloaded.
--mark -
Hello, i have money on balance ( $15)< i want to buy program ($0,99) and in return get message: you purchase could not be completed
If you want replies, it's unwise to mark your thread as having been answered. People see that and assume you've solved your problem and no longer need responses. Go here:
http://www.apple.com/support/itunes/contact/
and follow the instructions to report the issue to the iTunes Store.
Regards. -
How can i format Iphone 4.But i didnt want deleted pictures,programs,musics.How can i do that?
How can i format Iphone 4.But i didnt want deleted pictures,programs,musics.How can i do that?
Restoring to factory setting will certainly erase the pics.
Why don't you import the pics to your computer as you should be doing anyway? -
Hi, i'm paying every mont for photoshop and lightroom, I had to bring my Mac to apple to change the hard drive, and now i want reinstall my programs, anyone can help me?
Download and install the trial version(s) from https://www.adobe.com/creativecloud/catalog/desktop.html and activate them with your Adobe ID.
-
I want parameter for program name entering with f4 help pls send code
I want parameter for program name entering with f4 help pls send code
Points if helpfulHi,
PROG is a string which indicates the type of the object --- program
u can call the FM as follows
CALL FUNCTION 'REPOSITORY_INFO_SYSTEM_F4'
EXPORTING
<b> object_type = 'PROG'
OBJECT_NAME = p_report</b>
ENCLOSING_OBJECT =
SUPPRESS_SELECTION = 'X'
VARIANT = ' '
LIST_VARIANT = ' '
DISPLAY_FIELD =
MULTIPLE_SELECTION =
SELECT_ALL_FIELDS = ' '
WITHOUT_PERSONAL_LIST = ' '
IMPORTING
OBJECT_NAME_SELECTED =
ENCLOSING_OBJECT_SELECTED =
STRUCINF =
TABLES
OBJECTS_SELECTED =
RECORD_TAB =
EXCEPTIONS
CANCEL = 1
WRONG_TYPE = 2
OTHERS = 3
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Patil -
i've to download se38 program source code into a flat file or text file.
in which table and in which field the source code gets saved and what is the function to download source code of abap program into text file.
regards,
deepti headu.Hi nilesh,
1. in which table and in which field the source code gets
Table = REPOSRC
(But the source code is stored in RAW / Encoded format,
and we cannot read directly)
2. For reading we have to use READ REPORT syntax
3. Just copy paste
(it will read the report, and download)
(U can change the program name and filename)
4.
REPORT ABC.
DATA : BEGIN OF ITAB OCCURS 0,
F(72) TYPE C,
END OF ITAB.
READ REPORT 'ZAM_TEMP00' INTO ITAB.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
FILENAME = 'D:\PRG.TXT'
TABLES
DATA_TAB = ITAB
regards,
amit m. -
When I open a pdf I there are Asian characters as the file downloads and I am always ask if I want to trust the source. What should I do?
What is your operating system?
Can you provide a screenshot of what you see: https://forums.adobe.com/thread/1408375
Maybe you are looking for
-
Sharing Itunes on the same Computer with 2 users
This is probably really basic - I have created a second user account on my puter and no matter what I do to allow access to Itunes the second user cannot access the files. I have copied the files and placed them in the music folder (twice) for that u
-
Window 8.1 64 bit - iTunes Install Error
I have windows 8.1 64 bit. When I try and install iTunes 64 bit, I get the following error, "Could not write value ManageLLRouting to key \SYSTEM/CurrentControlSet\Service\Bonjour Service/Parameters. Verify that you have suffiient access to that key
-
Oracle 9.2.0.8 Dataguard on Cross platform
Dear Team, We need your help. we have primary database and two physical standby databases on RHEL4 (oracle 9.2.0.8) we need to add one more standby but the os is HP-UNIX(oracle 9.2.0.8) this resides on customer environment they use it for reporting c
-
im trying to create a system where inside of a text box it will finnish sentences i start. ie say i give it a string "hello world!" when i go into a text box and start typing "hel" it will popup with somethign to select the whole thing like in flex b
-
Delivery quantity is less than minimum delivery quantity
Hello Experts, I received an error log "Delivery quantity is less than minimum delivery quantity 20 EA" when I first tried to create delivery using sales order. Well the reason for the error log was because of the CMIR record maintained in the system