× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



I have been trying to automate OFFTRN upload option in MAPICS IM Module (IM,
3, 2). But there is no success.

Pasted below is the program (MSM001C) I wrote to automate it. I
want to upload the data in file OFFTRN064 (library OFFLINES) to
MAPICS environment 'IS' as a suspended batch. I have introduced an option to
call my program from MAPICS, at AMIM30 menu.

I used http://archive.midrange.com/mapics-l/200511/msg00018.html as a guide
to write the LDA populations by mapping with AMFLIBS/JOBACT record just
after an actual IM, 3, 2 option from MAPICS.

I'm not getting the Suspended batch created in MAPICS.

Will anyone be in a position to help me to reason out why it is not creating
the batch? If necessary I can fwd the jog log I'm getting when I take the
said option.

Also if you have any idea about how to get the batch in CLOSE mode, pls let
me know.

Thank you very much in advance.

Shuhail
==================================================================
My Program MSM001C:

PGM

DCL VAR(&ENV) TYPE(*CHAR) LEN(2) VALUE('IS')
DCL VAR(&FNAM) TYPE(*CHAR) LEN(10) VALUE('OFFTRN064')
DCL VAR(&FLOC) TYPE(*CHAR) LEN(1) VALUE('2')
DCL VAR(&DEV) TYPE(*CHAR) LEN(10) VALUE('OFFLINES')
DCL VAR(&DEL) TYPE(*CHAR) LEN(1) VALUE('N')

DCL VAR(&WKSID) TYPE(*CHAR) LEN(10)
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCL VAR(&SYSNAM) TYPE(*CHAR) LEN(8)

DCL VAR(&LDA) TYPE(*CHAR) LEN(1024)

RTVNETA SYSNAME(&SYSNAM)
RTVJOBA JOB(&WKSID) USER(&USER)

CHGVAR VAR(%SUBSTRING(&LDA 1 001)) VALUE('2')
CHGVAR VAR(%SUBSTRING(&LDA 110 006)) VALUE('AMIPEA')
CHGVAR VAR(%SUBSTRING(&LDA 201 003)) VALUE('YY1')
CHGVAR VAR(%SUBSTRING(&LDA 204 002)) VALUE(&ENV)
CHGVAR VAR(%SUBSTRING(&LDA 209 004)) VALUE('3002')
CHGVAR VAR(%SUBSTRING(&LDA 217 003)) VALUE('1M1')
CHGVAR VAR(%SUBSTRING(&LDA 230 001)) VALUE('M')
CHGVAR VAR(%SUBSTRING(&LDA 234 001)) VALUE('L')
CHGVAR VAR(%SUBSTRING(&LDA 235 001)) VALUE('L')
CHGVAR VAR(%SUBSTRING(&LDA 245 005)) VALUE('I/:$.')
CHGVAR VAR(%SUBSTRING(&LDA 251 001)) VALUE('û')
CHGVAR VAR(%SUBSTRING(&LDA 255 002)) VALUE(&ENV)
CHGVAR VAR(%SUBSTRING(&LDA 257 002)) VALUE('00')
CHGVAR VAR(%SUBSTRING(&LDA 259 010)) VALUE(&WKSID)
CHGVAR VAR(%SUBSTRING(&LDA 269 001)) VALUE('0')
CHGVAR VAR(%SUBSTRING(&LDA 273 001)) VALUE('0')
CHGVAR VAR(%SUBSTRING(&LDA 276 001)) VALUE('1')
CHGVAR VAR(%SUBSTRING(&LDA 277 010)) VALUE(&USER)
CHGVAR VAR(%SUBSTRING(&LDA 287 010)) VALUE(&WKSID)
CHGVAR VAR(%SUBSTRING(&LDA 368 002)) VALUE('YN')
CHGVAR VAR(%SUBSTRING(&LDA 450 004)) VALUE('EXIT')
CHGVAR VAR(%SUBSTRING(&LDA 462 009)) VALUE('NAMIM3002')
CHGVAR VAR(%SUBSTRING(&LDA 493 008)) VALUE(&SYSNAM)
CHGVAR VAR(%SUBSTRING(&LDA 501 006)) VALUE('AMIM30')
CHGVAR VAR(%SUBSTRING(&LDA 511 003)) VALUE('02M')
CHGVAR VAR(%SUBSTRING(&LDA 524 010)) VALUE(&WKSID)
CHGVAR VAR(%SUBSTRING(&LDA 701 010)) VALUE(&FNAM)
CHGVAR VAR(%SUBSTRING(&LDA 711 010)) VALUE(&DEV)
CHGVAR VAR(%SUBSTRING(&LDA 721 001)) VALUE(&FLOC)
CHGVAR VAR(%SUBSTRING(&LDA 725 001)) VALUE(&DEL)

CALL AXZPSJ PARM(&LDA AMIPEB)

ENDCL: ENDPGM
============================================================================


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.