Category: Uncategorized

LANSA EXPORT

LANSA EXPORT COMMAND FORMAT

LANSA REQUEST(EXPORT)
PARM01(AAAATOK)
PARM03(‘mamlib/mamlibsavf’)
PARTITION(‘DEV’)
LANGUAGE(‘ENG ‘)

parm01 – export name
parm02- blank
parm03-qualified name
Partition- Must be specified
Language- Optional

how to send an email from a command line or visual lansa

command line example windows 10

C:\Windows\System32\WindowsPowerShell\v1.0>powershell.exe C:\Users\markm\Documents\powershell\pwemail03.ps1 markmason@gmail.com ‘”Hello World”‘ RANDY

program pwemail03.ps1

write-host “There are a total of $($args.count) arguments”
for ( $i = 0; $i -lt $args.count; $i++ ) {
write-host “Argument $i is $($args[$i])”
}

$emailtoparm=$args[0]
$envname=$args[1]
write-host “If this script were really going to do something, it would do it on $emailtoparm in the $envname environment”

$EmailFrom = “markmason12@outlook.com”

$EmailTo = $emailtoparm

$Subject = “The subjects $emailtoparm”

$Body = $envname

$SMTPServer = “smtp.gmail.com”

$SMTPClient = New-Object Net.Mail.SmtpClient($SmtpServer, 587)

$SMTPClient.EnableSsl = $true

$SMTPClient.Credentials = New-Object System.Net.NetworkCredential(“mark”, “lansababy”);

$SMTPClient.Send($EmailFrom, $EmailTo, $Subject, $Body)

Start-Sleep -Seconds 8

SIMPLE LANSA TEMPLATE

Dumps file fields as comments
(from here you can modify to build group by ect..)

/* ********** ======================================================= */ /* ********** GET NAME OF JUST ONE PHYSICAL FILE */ /* ********** ======================================================= */ @@GET_FILS TO(1) PROMPT('Enter the name of the PHYSICAL file to be used by this template') EXTEND('The file name may be specified in full, partially (to cause a partial list' 'of available files to be displayed) or left blank (to cause a full list of' 'available files to be displayed). When a list of files is displayed, the' 'file required may be selected from the list.' ' ' 'Use the HELP function key for more details about this template and' 'examples of the type of RDML applications it can create.') HELPIDS(HELP010 HELP020 HELP030 HELP040 HELP050) @@COMMENT COMMENT('=======================================================') @@COMMENT COMMENT(' Simple File Dump ') @@COMMENT COMMENT(' ') @@COMMENT COMMENT(' @@FNAME01 - Field List ') @@COMMENT COMMENT(' ') @@COMMENT COMMENT(' Template - Z_Filedump ') @@COMMENT COMMENT(' ') @@COMMENT COMMENT(' FILE INFO ') @@COMMENT COMMENT(' @@FLIBR01 - File Library ') @@COMMENT COMMENT(' @@FVERS01 - File Version No ') @@COMMENT COMMENT(' @@FTYPE01 - File Type ') @@COMMENT COMMENT(' @@FNAME01 - File Name ') @@COMMENT COMMENT('=======================================================') /* ********** ======================================================= */ /* ********** GET FIELDS OF CHOSEN FILE INTO LIST 1 */ /* ********** ======================================================= */ @@CLR_LST NUMBER(1) @@RTV_FLDS FROM_FILE(1) INTO_LST(1) /* ********** ======================================================= */ /* ********** GET KEYS OF CHOSEN FILE INTO LIST 2 */ /* ********** ======================================================= */ @@CLR_LST NUMBER(2) @@RTV_KEYS OF_FILE(1) INTO_LST(2) /* ********** ======================================================= */ /* ********** GET USER TO CHOOSE FIELDS TO APPEAR ON PANEL */ /* ********** AND PUT RESULTS INTO LIST 3 */ /* ********** ======================================================= */ @@CLR_LST NUMBER(3) @@MAK_LSTS FROM_LSTS(1) FORCE_LSTS(2) INTO_LSTS((3 'Fields to' 'Appear in' 'Comments ' *SEQUENCE *ALL)) HELPIDS(HELP010 HELP020 HELP030 HELP040 HELP050) @@COMMENT 'Function control options' @@SET_IDX IDX_NAME(DP) TO(1) @@SET_IDX IDX_NAME(KF) TO(1) K30: @@LABEL @@CMP_IDX IDX_NAME(KF) IDX_VALUE(@@LNE03) IF_GT(K40) @@COMMENT COMMENT('#@@LEL03KF TYPE(@@LTP03KF) @@LDS03KF @@LAT03KF') @@INC_IDX IDX_NAME(DP) @@INC_IDX IDX_NAME(KF) @@GOTO LABEL(K30) K40: @@LABEL /* ********** ======================================================= */ /* ********** CLEAR ALL LISTS USED */ /* ********** ======================================================= */ @@CLR_LST NUMBER(1) @@CLR_LST NUMBER(2) @@CLR_LST NUMBER(3)

VP Guy has vanity Phone numbers vpguy.com

(260) 2ZoomMe
(606) POOCHIE
(321) 341-PAIN  – Space Coast
(434) 686PAIN (86 Pain)
(930) 600-1212
(628) 213-PAIN  – San Francisco
(562) 31SPINE   – Long Beach CA
(320) 525-0100
(818) 450-5978   – Burbank CA
(872) 259-0001  – Chicago IL
(702) POOCHIE
43 Hot or Not
(813) 592-HURT – Tampa FL
(813) PEE WALK – Tampa FL
(813) 733-PAIN –  Tampa FL
(808) 320-HURT – Kauai HI
(260) 2ZoomUs
(214) 396-BIDS – Dallas TX
(434) 3MAGNUM
(743) 500-2020
(689) 210-HURT
(929) 55comic   Comedian Prevention Hotline
(551) 400-8999
(321) 701-2426  KSC Rocket Launch
(872) 260-0001  Chicago IL
(818) 450-5357  Burbank CA
(213) 652-JOBS Los Angeles CA
(863) POOCHIE
(727) 758-CASH
(323) 904-PAIN
(252) 5TICKET
(336) 86FUNNY  Comedian Prevention Hotline

VPGUY.COM

14,000 made with AVA part time these last 3 months

I just found a texting chat bot that pays me $100 when I connect people to her! No really, check it out for yourself at http://EFTme.com and learn how she can do the same for you!

Oh and BTW: You can also generate leads for your primary business with this! It’s the coolest.

Tiktok uses live texting to connect you with like minded individuals. And I mean real like minded individuals. She doesn’t know if you’re 20 or 40 or 60, she knows you’re someone who likes to play games, drink coffee, travel, enjoy the beach, etc. The first 60 minutes of every chat is just you and her talking and learning about each other. After that, you can use the tool to start a relationship and build a connection that will hopefully lead to business meetings. And if you don’t have an existing relationship, she’ll also find a way to introduce you to a business contact, friend, or family member.

I know what you’re thinking. “Don’t we already have a text chat bot like this?” Of course we do. You may not know the name, but you can have a free conversation with IG @Text.Bot.AI right now. It’s very similar, but Tiktok is slightly more powerful. Plus, you get to use real money for it.

So what does Tiktok look like? It’s a stunning screen saver I guess. Check it out for yourself here.