Sample code for DecisionPlus - Read in csv data

Test

Usually we can just use DecisionPlus to do it. just as example here:

1. !file 1 $MTDAT/certs
   
2. 
   
3. #define certs 1
   
4. 
   
5. !temp txtline,,a160,t
   
6. !temp filename,,a100
   
7. !temp txtfile,,i2
   
8. !temp charct,,i2
   
9. !temp charstr,,a80,t
   
10. !temp onechar,,a1
    
11. !temp threechar,,a3
    
12. !temp startpos,,i2
    
13. !temp endpos,,i2
    
14. !temp hostname,,a3
    
15. 
    
16. !init scroll 4 : filename = arg : gosub INIT
    
17. 
    
18. END\
    
19.         end
    
20. INIT\
    
21.         fopen txtfile filename "r"
    
22. ...     fopen txtfile "/tmp/transfers_certs_rcp.out" "r"
    
23.         hostname=$HOSTNAME
    
24. 
    
25. NEWLINE\
    
26.         fgets txtfile txtline eof  = RETURN
    
27.         charct = 10
    
28. NEXTCHAR\
    
29.         onechar = getstr(txtline,charct,1)
    
30.         if onechar = " " then goto CHK_HOST
    
31.         charct = charct + 1: goto NEXTCHAR
    
32. CHK_HOST\
    
33.         threechar = getstr(txtline,charct+8,3)
    
34.         if threechar = hostname then goto GET_HEAT
    
35.         goto NEWLINE
    
36. 
    
37. GET_HEAT\
    
38.         charct = charct + 27
    
39.         cert_num = getstr(txtline,charct,24)
    
40.         read certs nsr=CONT
    
41.         goto NEWLINE
    
42. CONT\
    
43.         cert_num = getstr(txtline,charct,24)
    
44.         insert certs
    
45.         print cert_num
    
46.         goto NEWLINE
    
47. RETURN\
    
48.         return
    

复制代码

But Linux already has very strong capability on text processing, so I tried to use script to get data and only pass the data been read out to the DecisionPlus program.

like we have a csv file for grouping id with just customer id and master id, like.

MasterID        Cust_ID
V 1375        S  829
        K 2121
        V 1375
        R 1561
        R  551
        E 1693
        S  348
        R  430
        E 4926
S  884        R  388
        S  884
V 5162        K 3628
        K 4009
        V 5162
        E 4204
        S 2430
        R 1768
V  486        E 6613
        V  486
        K 1050

csv file like:

1. dev]$ cat supplier_list_2.csv
   
2. V 1375,S  829
   
3. ,K 2121
   
4. ,V 1375
   
5. ,R 1561
   
6. ,R  551
   
7. ,E 1693
   
8. ,S  348
   
9. ,R  430
   
10. ,E 4926
    
11. S  884,R  388
    
12. ,S  884
    
13. V 5162,K 3628
    
14. ,K 4009
    
15. ,V 5162
    
16. ,E 4204
    
17. ,S 2430
    
18. ,R 1768
    
19. V  486,E 6613
    
20. ,V  486
    
21. ,K 1050
    

复制代码

we have bash script file getcsv.jcl as:

1. #!/bin/bash
   
2. #INPUT=supplier_list.csv
   
3. function pause(){
   
4.    print '...'
   
5.    read -p "$*"
   
6. }
   
7. 
   
8. INPUT=$1
   
9. if [ "$1" == "" ]; then
   
10.         INPUT=supplier_list_1.csv
    
11. fi
    
12. echo "Input file: $1"
    
13. OLDIFS=$IFS
    
14. IFS=,
    
15. masterid=""
    
16. [ ! -f $INPUT ] && { echo "$INPUT file not found"; exit 99; }
    
17. while read master acct
    
18. do
    
19.         #echo "Name : " $master "Acct :" $acct
    
20.         if [ "$masterid" == "" ]; then masterid="$master"; fi
    
21.         if [ "$master" == "" ]; then master="$masterid"; else masterid="$master"; fi
    
22.         ./showp.jcl "$master" "$acct"
    
23.         #/appl/sagexec/sagerep input_supp_csv nullp "$acct" "$master"
    
24.         /appl/sagexec/sagerep input_supp_csv nullp UPDATE "$acct" "$master"
    
25.         #echo 'Next to go ...'
    
26.         #echo "Name :  ${master}| Acct : ${acct}|"
    
27. done < $INPUT
    
28. IFS=$OLDIFS

复制代码

and then, the DecisionPlus only used to update data by the number provided by arguments.

1. ... input_supp_csv.r
   
2. 
   
3. ... Append new items to supplier_master
   
4. ... 08-23-11 Johnz: use parameters to update supplier grouping table inside Metaltraq
   
5. 
   
6. !file 1 $MTDAT/supplier_master
   
7. 
   
8. 
   
9. !temp master,,a6,u+
   
10. !temp supplier,,a6,u+
    
11. !temp tmp_key,,a6
    
12. !temp tmpstr,,a60,t
    
13. !temp tmp_count,,i2
    
14. 
    
15. !init scroll 4 : tmp_key           = arg
    
16. !init scroll 5 : supplier          = arg
    
17. !init scroll 6 : master            = arg
    
18. !init gosub INIT
    
19. 
    
20. ...!heading gosub HEAD
    
21. 
    
22. 
    
23. !final gosub TAIL
    
24. ...    print "Show Data ..."
    
25.     if tmp_key = "UPDATE" then \
    
26.        rewind 1 : suppm_master_id = master : suppm_num = supplier : \
    
27.        print "Insert "; supplier; " -> ";master;" ..." : \
    
28.        insert 1 re = RERROR : \
    
29.        print "                           --- succeed." \
    
30.     else \
    
31.        print "Supplier:";supplier;" ---> ";master
    
32.     print "..."
    
33.     rewind 1
    
34.     tmp_count = tmp_count + 1
    
35. END\
    
36.     exit 0
    
37. 
    
38. RERROR\
    
39.     print "Supplier ";master;" existed! insert failed."
    
40.     goto END
    
41. 
    
42. ._________________________________________________________________________________
    
43. INIT\
    
44.     tmp_count = 0
    
45. .    print "Starting ..."
    
46.     if tmp_key <> "UPDATE" then \
    
47.        master = supplier : supplier = tmp_key
    
48. .    print "Supplier:";supplier;" - Master:";master
    
49.     return
    
50. .________________________________________________________________
    
51. 
    
52. TAIL\
    
53.     return
    

复制代码

and this code can be easily used to update other data tables.